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-TITLE YCORIVER = Port Driver for DMF Async 
“IDENT "Woe-O60" . 


—MARAARBABARAAAAAAAAASELALLALALL SSAA AALS SESE RRR RES ERR R RRR AERA RSA SERRE RRS EARS ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY yy a eta WITH THE TERMS OF SUCH biCNse ae | 


-* 
*® ® 
*® ov 
*® a 
*® o 
*® @ 
*® ® 
;* INCLUSION T E TIC * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. e 
*® e 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. e 
-* ® 
:* ® 
-* ® 
® « 
.@ ® 
-* e 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(ARR ARARASAARASALARAASALAAASAASARASAAE SEALER R ERASERS AR SERA R RRR RASA RAR RRA RES SS 


list rather than an empty queue. This avoids the overhead 
; of pees ing and unlocking the ACL mutex, only to find out 
3 that the ACL was empty. 


v03-030 EMD0089 Ellen M. Dusseault 30-Apr-1984 
Add DEVS$M_NNM characteristic to DEVCHAR2 so that these 
devices will have the prefix ‘‘node$"’. 


p++ 
: FACILITY: 

: VAX/VMS TERMINAL DRIVER 

> ABSTRACT: 

; DMF ASYNC PORT DRIVER 

: AUTHOR: 

: RICK SPITZ 

: Revision history: 

: V03-032 WHM0003 Bill Matthews 24-Jul-1984 

: Set the device type field in the CRB. 

: v03-231 LMP0275 L. Mark Pilant, 12-Jul-1984 21:04 
s Initialize the ACL info in the ORB to be a null descriptor 


v03-029 LMP0221 L. Mark Pilant, 31-Mar-1984 10:23 
: Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 
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TTDRVR.SRCJYCDRIVER.MAR; 1 
ORBSW_PROT. 


V03-028 M1RO360 Michael I. Rosenblum 20-Mar-1984 
Add code to check tor DMF honoring XON and XOFF. 
negove Callback to BURST. OUTPUT when resume is called 

This illiminates unnecessry fnperrupts when the silo 
Goes empty and we get a control-Q. 


V03-027 wHM0002 Bill Matthews 29-Feb-1984 
Second part of change to control_init to support 
multiple comm devices on one board. 


V03-026 _ 0001 Bill Matthew 28-Dec-1983 
Use IDB$B_COMBO_VECTOR poe 1dase COMBO_CSR “OFFSET to find 
the start of the combo device's CSR and load the soft 
interrupt vector. 


V03-025 JLV0318 Jake Van 9-DEC-1983 
comment out DPT_STORE ay Jerity to fix build problem. 


V03-024 MIRO083 micpeet I. Rosenblum 02-Aug-1983 
Add Field test DMZ-32 support. Remove local def o 
10$M T AUTXOF. °ENA and Tosm” -AUTXOF _DIS and move thes into STARDEF. 


V03-023 MIRO062 Michael I. Rosenblum 30-Jun-1983 
Change controler and unit init to use newly defined 
macros. Remove code that looked at the logical UCB 
(code moved to the class drivers setup ucb and transition 
ap hnne Remove into the class driver on resume with nothing 
o resume. 


V03-022 MIRO060 Michael I. Rosenblum 1=Jun-1983 
Add code to combat against silo full conditions and spurious 
DMA completeion interupts. 


v03-021 BIROSSe Michael I. Rosenblum 11-May-1983 
Remove STOP2 entery point (no longer necessary) 
add code in set_line to allow the use of the auto xon xoff 
feature of the dmf. Fix ~~ Ry that would cause setting of the 
XON bit not to restart a write 


v03-020 RKS0020 RICK SPITZ 14-MAR-1983 
ACD ENHANCEMENTS TO SUPPORT LOGICAL UCB 


v03-019 RKS0019 RICK SPITZ 1-FEB-1983 
DMA CODE HAS BEEN MOVED INTO THE por PORT DRIVER. THIS 


LEVEL. ALL OUTPUT 
FROM CLASS 40 PORT IS NOW HANDLED USING THE SAME INTERFACE. 
Rai ne Se tor D TO INSURE INT IS ON DURING 


0 TO INSURE NO NEW OUTPUT IS 
STARTED DURING THAT WINDOW. 


v03-018 MIROO22 Michael I. Rosenblum he apts 
Replace old vector table with new vector table 
Remove references to UCBSL. DEVDEPEND and UCB$Q TT. STATE 
move these references into the class driver jacket routines 
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00 115 : V03-017 MIROO17 Michael I. Rosenblum 04-Jan-1983 
0 138 ; Add powerfail check in the Unit init routine to allow the 
3 ii ; terminal class drier to take positive action on powerfail. 
8 119 : V03-016 MIROO16 Michael I. Rosenblum 29-Dec-1982 
8 : ; Replace time calculation code with TIMSET macro call. 
000 1 ; ; V03-015 MIROO15 Michael I. Rosenblum 22-Dec-1982 
414 123 ; hange code in YCSDISCONNECT to reflect the change 
B08 124 ; n functionality. Remove code that referenced 
i : 5 : DMAABO and DMA state bits. 
$008 1 $ : V03=-014 MIROO14 Michael I. Rosenblum 17-Dec-1982 
0000 128; move code to figure out what flow control character 
4 ! 3 : to send to TTYSUB. 
0000 131: v03-013 RKSO013 RICK SPITZ 18-OCT-1982 
444 136 bs CORRECT SENSE OF PARITY BIT 
0000 134; v03-010 RKS0012 RICK SPITZ 16-SEP-1982 
0000 135; Remove check for powerfail in unit init which prevents 
0000 136; SETUP_UCB from being called. This is needed to allow 
0000 137 ; Unibus switches to connect a Line and then switch the 
4464 138 ; device on the bus, followed by a psuedo powerfail recovery. 
0000 140: Check reference count in unit init to determine if 
0000 «(141 ; modem control should be initialized or hungup. This 
0000 16 : is needed to insure that a hangup “Y is posted on 
464 ie : powerfail on modem Lines. 
0000 145: Refrain from clearing INT in the port abort Logic. 
0000 146; This prevents output data following a flush from being 
0000 147; lost during a small time window. 
0000 148 ; The DMF will interrupt on silo flush complete, at 
8000 133 : which point INT will be handled. 
0000 151: v03-009 KDM0002 Kathleen D. Morse 28-Jun-1982 
4 13 ; Added SDEVDEF and $SSDEF. 
0000 154; v03-008 RKS008 RICK SPITZ 23-MAR-1982 
44 155 ; USE SYSGEN VALUE FOR COMBO INPUT SILO TIMER. 
4 138 c CHANGE OUTPUT DELAY. 
9900 158 ; v03-007 RKS007 RICK SPITZ 13-FEB-1982 
4 1} : ADD DELAY LOGIC WHEN OUTPUTING TO TRANSMIT SILO 
9009 161 : V03-006 RKS0006 RICK SPITZ 8-F EB-1982 
000 196 2 DO NOT ALLOW UNLOAD 
0000 165; FIX CHARACTER TIMER 
44! 198 , DO UNSIGNED COMPARISON IN SILO OUTPUT. 
000 166; v03-005 RKS0005 RICK SPITZ 11-JAN-1982 
00 167; REPAIR MODEM INTERRUPT LOGIC 
8 198 ; ADD INPUT SILO TIMER. 
00 19 ; V03-004 RKS0004 RICK SPITZ 15-DEC-1981 
00 171 : FIX MAINTENANCE BIT OFFSETS, ADD EXTERNAL LOOP SUPPORT. 
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$600 184 : 
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ENHANCE RESUME LOGIC IN DMA MODE TO AVOID WRITING 0 BYTE 


USE SYSPARAM VALUES FOR 
CHANGE TYPE CODE TO DMF 


V03-003 JLV0104 Jake Va 
Changed TTYDEFS to $TTY 


v03-002 RKS002 


DMF VECTOR REGISTER. 


RICK SPI 
USE Patty TO COMPUTE 


GLASS DRIVER LOCATION, PARITY, RSPEED 
nNo 27-0c t-1981 
DEFS. 


TZ 8-0CT-1981 
VECTOR ADDRESS TO BE LOADED INTO 
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VOenOO8 DECLARATIONS , mith b2: 43:39 TTDRVR.SRCIYCDRIVER.MAR; 1 . 
I -SBTTL DECLARATIONS 
189 ; 
5 139 3; EXTERNAL DEFINITIONS: 
00 13 SACBDEF 3; DEFINE ACB 
00 19 SCRBDEF ; DEFINE CRB 
00 194 SOCDEF ; DEFINE ADAPTER TYPES 
00 195 SDDBDEF 3; DEFINE 
4 136 SDEVDEF ; DEFINE DEVICE TYPES 
0 19 SDYNDEF ; DEFINE DYNAMIC STRUCTURE TYPES 
000 198 SIDBDEF ; DEFINE IDB OFFSETS 
000 199 SIODEF 3; DEFINE 1/0 FUNCTION CODES 
444 00 SIRPDEF : DEFINE IRP 
000 01 SORBDEF 3; DEFINE OBJECT'S RIGHTS BLOCK OFFSETS 
0000 8 SSSDEF ; DEFINE SYSTEM STATUS CODES 
0000 0 STTYDEF ; DEFINE TERMINAL DRIVER SYMBOLS 
0000 04 STTDEF ; DEFINE TERMINAL TYPES 
0000 05 STT2DEF ; DEFINE EXTENDED CHARACTERISTICS 
0000 06 STQEDEF ; DEFINE TIMER QUEUE OFFSETS 
0000 07 SUCBDEF : rie ucB 
00 08 SUBADEF ; DEFINE UBA 
00 09 SVECDEF ; DEFINE VECTOR FOR CRB 
00 10 STTYMACS ; DEFINE TERMINAL DRIVER MACROS 
00 11 .show me 
00 12 STTYDEFS ; DEFINE TERMINAL DRIVER SYMBOLS 
00 SDEFINI TTYDEFS, 


7; LOCAL _BLOCK 

TIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
-PSECT $ABS$,ABS 

$GBLIN 

lf IDN <LOCAL> <GLOBAL> 

~MACRO SDEF cae 


“IIF NB, SY : 
[IIF “NB ALLOC, ALLOC SIZ 
“ENDM = SDE 

"MACRO $EQU SYM, VAL 

SYM==VAL 

.ENDM 


$SEQU 
-MACRO $VIELD1 MOD,SEP,SYM,SIZ,MSK 


SOoooooooooooooooooooooooooooooocoooo 


| 
-IIF. -NB,SIZ, $1Z...=S12Z 
IF NB, SYM 

MOD'SEP'V_ 'Sym==BIT... 
0 LIF NB.S1Z, MOD'SEP'S_*SYM==S1Z 
0 atta NB.MSK, MOD'SEP'M~'SYM==<<<laSIZ...>-1>aBIT...> 
0 BIT...=BIT...*#SIZ. oo 
0 -ENDH $ViELDI 
0 [TIF DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE "GLOBAL"’,“LOCAL'’,OR NULL 
0 “MACRO SDEF | SYM,ALLOC,S{2Z 
0 “IIF NB, SYM, SYM: 

*IIF NB ALLOC, ALLOC SIZ 
0 “ENDM 
0 “MACRO $EQU SYM, VAL 
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00000000 
SUCBDEF | 
SCRBDEF | 
SIDBDEF | 
STTYUCBDEF | 
SDEFINI TTYUCB, 

E gc tOCAL BLOCK | 


nN 
«LIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
SABSS,ABS 


IDN <LOCAL> <GLOBAL> 
DEF SYM,ALLOC, $12Z 


“LIF NB ALLOC, ‘* attoc siz 
$EQU = SYM, VAL 


= 
> 
oO 
oe 
So 


- END SEQU 

eMACRO SVIELD1 MOD,SEP,SYM,SIZ,MSK 
NB,SIZ, SIZ...=SI1Z 

NB SYM 


oe WwW 
—— En 
a > 
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NB,SIZ, MOD'SEP v$-; Sumess 
NBIASK, MOD'SEP "M~'SYM==< 


Aw 
 ~ 


<18S1Z...>-1>aBIT...> 


-=BIT...+#SI1Z... 
DM SVIELDI 


DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE "'GLOBAL"’,"“LOCAL'’,OR NULL 
RO $DEF | SYM,ALLOC,S{i2 

NB,SY : 
B ALLOC. ALLOC SIZ 


$ 
MACRO $EQU SYM, VAL 


N stay 
-MACRO SVIELD1 MOD,SEP.SYM,S1Z.MSK 
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YCDRIVER - Port Driver for DMF Async 16-SEP-1984 AX/VMS M 4- 
VOen008 DECLARATIONS . Beep lobe Basi eise FTTONUR.caeiochRiveg.mar:1 age 19 
SEQu TTYSM_TANK 56 
00000100 TTYSM_TANK K-PREMPT=256 . 
$SEQU TTYSM_TANK_STOP 51 
00000200 5 TTY$M_TANK_STOP= 8 
$EQU TTYSM_TANK_HOLD 1024 
00000400 000 TTYSM_TANK_ “Horb=1034 
00 $SEQU TTYSM_TANK_BURS 2048 
00000800 33 TTYSM_T ANE ~BURST=2048 
000 $SEQU TTYSM_TANK_DMA 4096 
00001000 B008 TTYSM_TANK_DMA=4096 
Be SEQU TTYSM_PC_NOTIME 1 
00000001 806 TTYSM_PC_NOTIME=1 
0000 SEQU TTYSM_PC_DMAENA 
00000002 444 TTYSM_PC_DMAENA= 
0000 SEQU TTYSM_PC_DMAAVL 4 
00000004 8006 TTYSM_PC_DMAAVL=4 
0000 SEQU TTYSM_PC_PRMMAP 8 
00000008 B68 TTYSM_PC_PRMMAP=8 
0000 $EQU TTYSM_PC_MAPAVL 16 
00000010 44 TTYSM_PC_MAPAVL=16 
0000 SEQU TTYSM_PC_XOFAVL =35 
00000020 4 TTYSM_PC_XOFAVL= 
$090 $SEQU TTYSM_PC_XOFENA 64 
00000040 3006 TTYSM_PC_XOFENA=64 
8000 S$EQU TTYSM_PC_NOCRLF 128 
00000080 i TTYSM_PC_NOCRLF=128 
0000 SEQU UCBSM_TT_DSBL 128 
00000080 4 UCBSM_TT_DSBL=128 
SEQU UCBSC_TT_CLSLEN 
0000012C 8 UCBSC_TT_ ~ELStEN 306 
8 SEQU UCBSK_TT_CLSLEN 300 
0000012C 38 UCBSK_TT—CLSLEN=300 
0 $EQU TTYSM_TP_ABORT 1 
00000001 3 TTYSM_TP_ABORT=1 
SEQU TTYSM_TP_ALLOC 2 
00000002 TTYSM_ TP- ALLOC=2 
SEQU TTYSM_TP_DLLOC 4 
00000004 TTYSM_ TP- DLLOC=4 
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YCDORIVER - Port Driver for DMF Async 16-SEP-1984 7:25:59 VAX/VMS Mac v04- 
Voor O05 DECLARATIONS ° ~SEEn 138s BE 97:32 PEISHNS Bacto NOt OO aans1 Pase Hi, 


SEQU ucesc. TP_LENGTH 
a cae : CBBC. TP LENGTH 308 
SEQU UCBSK_TP_LENGTH 
00000134 0 UCBSK_ TP” “ENG THe$08 
SEQU UCBSC_TT_LENGTH 
00000134 33 UCBSC~ ~TT. “LENG TH=308 
0 SEQU UCBSK_ TT_LEN 
00000134 308 UCBSK~ TT” “HEN TH=308 
00 SEQU FLGSM WLIRP_BSY 1 
00000001 900 FLGSM ~WIIRP_BSY=1 
0900 SEQU FLGSM _CTRLO 
00000002 4 FLGSM_ CTRLO=2 
443 SEQU FLGSM_ CANCTRLO 4 
00000004 4 FLGSM_ CANCTRLO=4 
000 $SEQU FLGSM_ INWRTFDT 8 
00000008 it FLGSM_ INWRTFDT=8 
0000 $EQU FLG$M_QUOTA 16 
00000010 9000 FLGSM_ QUOTA=16 
4 SEQU FLGSM_ VAXTOVAX 32 
00000020 44 FLGSM_ _VAXTOVAX=32 
44 SEQU FLGSM_BUFFER 64 
00000040 8008 FLGSM| _BUFFER=64 
000 $SEQU UCBS$C _RTT_LENGTH 312 
00000138 4 UCBSC_ RTT ~LENGTH= 312 
000 SEQU UCBSK _RTT_LENGTH 312 
00000138 it UCBSK_ RTT” _LENGTH=312 
O60 $SEQU UCBSS_ TTYUCBDEF 316 
0000013C O80 UCBSS_ TTYUCBDEF=316 
09 SEQU UCBSL_ TL_CTRLY 144 
00000090 UCBSL~ x. CTRLY=144 
$EQU UCBSL_TL_CTRLC 148 
00000094 ucBSt TL_ CTRLC=148 
SEQU UCBSL_TL_OUTBAN 152 
00000098 UcBSt TL” ~QUTBAND= 152 
SEQU UCBSL_ TL_BANDQUE 156 
0600009C UCBSL~ = we _BANDQUE=156 
SEQU UCBSL TL _PHYUCB 168 
000000A0 UCBSL— TL” —~PHYUCB=1 
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YCDRIVER - Port Driver for DMF Async 16-SEP-1984 02:25:59 VAX/VMS Ma v04-00 Pp 1 YCDF 
VOen O00 DECLARATIONS J met) 7 93:43:32 TTDRVR. SRCIYCDRIVER.MAR: 1 oe 9) v04- 
SEQU UCBS$B_TT_SPARE1 24 
000000F 3 | YEBSE TTT TSPARE 1 =5¢ 
SEQU UCBSW_TT_SPEED 244 
000000F 4 0 HeBSUrTT SPEED=246 
$EQU UCBSB_TT_TSPEED 244 
000000F4 0 6 YEBSecTT-TSPEED=Sa4 
8 SEQU UCBSB_TT_RSPEED 345 
000000F 5 9 UCBSB_~TT-RSPEED=245 
000 SEQU UCBSB_TT_CRFILL 246 
000000F6 0900 NEBSe-TTTERF tt =oc6 
000 SEQU  UCBSB_TT_LFFILL 347 
000000F7 909 UCBSB_TT_LFFILL=247 
000 $EQU UCBSB_TT_PARITY 348 
000000F 8 900 UCB$B_TT~PARITY=248 
$09 SEQU UCBSV_TT_XXPARITY 0 
00000000 9000 UCBS$V_TT-XXPARITY=0 
$008 SEQU UCBSV_TT_DISPARERR 
00000001 900 UCBSV_TT_DISPARERR=1 
000 SEQU UCBSV_TT_USERFRAME 2 
00000002 900 UCBSV~TT_USERFRAME=2 
C00 $EQU UCBSS_TT_LEN 2 
00000002 900 UCB$S_~TT-LEN=2 
00 S$EQU  UCBSV_TT_LEN 3 
00000003 209 UCBSV~TT_LEN=3 
0 SEQU UCBSV_TT_STOP 
00000005 9 UCBSV~TT"STOP=5 
$EQU  =UCBSV_TT_PARTY 
00000006 UCBSV~TT~PARTY=6 
$EQU UCBS$V_TT_ODD 7 
00000007 UCBSV~TT"ODD=7 
$EQU UCBSB_TT_PAR_SPARE1 249 
000000F9 UCB$B~TT~PAR_SPARE1=249 
SEQU §UCBS$W_TT_PAR_SPARE 250 
OOOOOOFA UCBSW~TT~PAR~SPAREO=250 
SEQU UCBSW_TT_CURSOR 353 
000000F C UCBS$W~TT~ CURSOR= 
$EQU UCBSB_TT_LINE 54 
000000F E UCBSB-TT“LINE=25 
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SEQU UCBSB_TT_LASTS 255 
000000F F UCBSB-TT~ {AST Eea8s 
SEQU UCBSW_TT_BSPL 
00000100 UCBSW-TT~ ~BSPLENS 38 
SEQU UCB$B_TT_FILL 58 
00000102 UCB$3_TT_ -itte2ss 
0 SEQU UCBSB_TT_ESC 259 
00000103 9 UCBS$B-TT“ESC=259 
0 SEQU UCBSB_TT_ESC_0 260 
00000104 209 UCBSB_TT “ESE-G e266 
00 $EQU UCBSB_TT_INTCNT 261 
00000105 209 UCB$B_TT_INTCNT=261 
00 SEQU UCBSW_TT_UNITBIT 262 
00000106 900 UCB$W_TT_UNI TBIT=262 
000 SEQU UCBSW_TT_HOLD 
00000108 38 UCBS$W"TT“HOLD=264 
9000 $EQU TTY$B_TANK_CHAR 264 
00000108 9000 TTY$B_TANK—CHAR=264 
0000 $EQu TTYSV_TANK_PREMPT 8 
00000008 9000 TTY$V~TANK-PREMPT=8 
000 SEQU TTYSV_TANK_STOP 9 
00000009 000 TTY$V_TANK-STOP=9 
00 SEQU TTY$SV_TANK_HOLD 1 
0000000A 9000 TTY$V—TANK_HOLD=1 
0900 $SEQU TTY$V_TANK_BURST 11 
00000008 909 TTY$V_TANK_BURST=11 
00 $SEQU TTYSV -TANK _DMA 12 
0000000¢ 900 TTY$v~ “DMA=12 
$SEQU UCBSB_TT _pRewer 
0000010A 38 UCB$B_TT"PREM T=3e6 
3 SEQU UCBSB_TT_OUTYPE 267 
00000108 UCBS$B_TT_OUTYPE=267 
09 SEQU UCBSL_TT_GETNXT 68 
0000010¢ UCBSL-TT_GETNXT=26 | 
SEQU UCBSL_TT_PUTN 1 378 
00000110 UCBSL-TT~ -PUINKT= 7 | 
SEQU UCBSL_TT_CLASS 276 
00000114 UCBSL-TT“CLASS=276 
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C_PRMMAP 
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-PC_MAPAVL 4 
~PC_MAPAVL=4 
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VOue OO DECLARATIONS ' Seem 18Be BEEF? PAASWNS Bacto vot OO uans1 Pase 38, v4: 
$EQU — PORT_STARTIO 
00000000 6 PORT START IO=0 ‘ 
$SEQU § PORT_DISCONNECT 4 
00000004 : PORT-DISCONNECT=4 
SEQU  PORT_SET_LINE 
00000008 000 PORT ~SETLINE=8 : 
0 SEQU  PORT_DS_SET 12 
0000000¢ i PORT-DS~SET=12 
$EQU PORT_XON 16 
00000010 9000 PORT-XON=16 
$50 $EQU  — PORT_XOFF 20 
00000014 000 PORT" XOFF=20 
000 $EQU = PORT_STOP 24 
00000018 900 PORT~STOP=24 
9900 $EQU = PORT_STOP 28 
0000001¢ 000 PORT~STOP2=28 
$090 $EQU — PORT_ABORT 32 
00000020 9000 PORT~ABORT=32 
. 0000 SEQU §PORT_RESUME 36 
00000024 9000 PORT~RESUME=36 
$00 SEQU  PORT_SET_MODEM 40 
00000028 208 PORT~SET~MODEM=40 
00 $SEQU PORT__DMA 44 
0000002¢ 000 PORT~~DMA=44 
$000 SEQU = PORT_MAINT 48 
00000030 9000 PORT-MAINT=48 
9000 SEQU  PORT_FORKRET _ 52 
00000034 900 PORT~FORKRET=52 
00 SDEFEND TTYVEC, DEF 
.MACRO $TTYVECDEF A 
"ENDM «© STTYVECDEF 
HIF DIF <> <GLOBAL>, .DISABLE SUPPRESSION 
0 RESTORE 
STTYSYMDEF 
SDEFINI TTYSY 
.SAVE _LOCAL_BLOCK 
"WOCROSS 
“LIF DIF <> <GLOBAL>,.ENABLE SUPPRESSION 
PSECT $ABS$, 
$GBLINI 
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YCDRIVER - Port Driver for DMF Async 16-SEP-1984 02:25:59 VAX/VMS Macro V04-00 Pa 7 YCDF 
Yoon OG DECLARATIONS ’ met 07:99 °3) TTDRVR. eae CIYCDRIVER. maR:1 if von" 
IF sDer bats <GLOBAL> 
“MACRO MALLOC, SIZ 
T LIF 3 tf 
“LIF NB site? ALLOC S12 
“ENDM = $DE 
“MACRO $EQU = SYM, VAL 
0 SYM==VAL 
-ENDM  $EQU 
i MACRO. SVIELD1 MUD,SEP,SYM,S1Z,MSK 
0 wIIF = NB, S1Z, $12...=$12 
09 “IF NB, SYM 
MOD'SEP'V_'SyM==BIT.. 
0000 .1IF NB, SIZ, MOD'SEP'S_' SYM==$12 
0000 -IIF_ NB. MSK, MOD'SEP'M™'SYM==<<<1aSIZ...>-1>@B1T...> 
0000 *ENDC 
9000 BIT...=BIT...+SIZ... 
9000 -ENDH $ViELD1 
0000 -IIF DIF <LOCAL> <LOCAL>,.ERROR ;ARG MUST BE "'GLOBAL"’,"’LOCAL'’,OR NULL 
0000 “MACRO $DEF SYM.ALLOC, ${2 
0000 “LIF NB. SYM M: 
0000 “TIF B ALLOC. ALLOC $12 
0000 ENDM Sp 
0000 “MACRO $EQU SYM, VAL 
9000 SYM=VAL 
000 -ENDM  $EQU 
0000 “MACRO $VIELD1 MOD,SEP,SYM,SIZ,MSK 
0000 §12...2 
0000 -IIF -NB,S1Z, $12...=$12 
0000 TIF (SYM 
000 MOD'SEP'V_‘SyM=BIT.. 
000 LIF —-NB,SIZ, MOD'SEP'S_'SYM=S1Z 
000 SIIF_ s-NB.MSK, MOD'SEP'M~'SYM=<<<1aSIZ...>-1>aBIT...> 
000 * ENDC 
0000 BIT...=BIT...+S1Z. 
0000 .ENDM = $SVIELD1 
0000 ENDC 
9000 
00000000 9000 .=0 
000 SEQU  TTYSM_FD_UNSOL 1 
00000001 000 TTYS$M~FD-UNSOL=1 
09 SEQU §TTYSM_FD_GETAHD 
00000002 0 TTYSM~FD~GETAHO= 
SEQU = TTYS$M_FD_DISCONNECT 4 
00000004 TTYSM~FD"DISCONNECT=4 
0 0 SEQU = TTYSM_FD_PORTFORK a 
00000008 TTYSM~FD~PORTFORK=8 
9 SEQU = TTYSM_FD_UNLINK 16 
00000010 TTYSM~FD-UNLINK=1 
SEQU TTYSM_FD_LINK 32 
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VOen O08 DECL 2 gree es SEiFFiss PFHNUS Baese NOOO Un, Page 2, vou" 
0000000a TTYSC_LF=10 
$EQU  =TTY$C_VT 11 
00000008 TTYSC-VT=11 
SEQU  —-~TTYSC_FF 12 
0000000¢ TTYSC“FF=12 
S$EQU =~ TTYS$C_CR 13 
0000000D TTYSC-CR=13 
SEQU  =TTYSC_CTRLN 14 
0000000€ TTYSC“CTRLN=14 
SEQU  TTYSC_CTRLO 15 
00c0000F TTY$C~ ~ETRLO=15 
$EQU  TTYSC_CTRLP 16 
00000010 TTYSC“CTRLP=16 
SEQU TTYSC_CTRLO 17 
00000011 TTYSC-CTRLQ=17 
SEQU TTYSC_CTRLR 18 
00000012 TTYSC“CTRLR=18 
$EQU TTYSC_CTRLS 19 
00000013 TTY$C” ~CTRES=19 
SEQU = TTYSC_CTRLT 20 
00000014 TTYSC-CTRLT=20 
$EQU =‘ TTYSC_CTRLU 21 
00000015 TTY$SC"CTRLU=21 
$SEQU =TTYSC_CTRLV 22 
00000016 TTYSC“CTRLV=22 
SEQU =‘ TTYSC_CTRLW 23 
00000017 TTYSC-CTRLW=23 
SEQU TTYSC_CTRLX 24 
00000018 TTYSC-CTR tK=24 
SEQU = TTYSC_CTRLY 25 
00000019 TTYSC“CTRLY=25 
$EQU  TTYSC_CTRLZ 26 
0000001A TTY$SC” ~ETRLD=26 
SEQU =~ TTYSC_ESCAP 27 
00000018 TTYSC“ESC EAPE=27 
$EQU  TTYSC_XON 7 
00000011 TTY$C"XON=17 | 
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V DECLA RATIONS P=19 TTDRVR.SRCIYCDORIVER.MAR; 1 
00000013 TTYSC_XOFF=19 
$EQu TTY$SC_BLANK 32 
00000020 TYSE-BLANE=32 
$EQU TTYSC_DOLLA 
00000024 TTY$C_ DOLL AR=36 ™ 
$EQuU TTYSC_PLUS 43 
00000028 3 TTY$C_P tus=43 
SEQU TTY$SC_ZERO 48 
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0000 0 .PSECT $$$105_PROLOGUE 
; Driver prologue table: 
5 eo 
6 YCSDPT ; DRIVER STA 
6 DPTAB. ; DRIVER SROLOGUE TABLE 
8 END=YCSEN 3; End and offset to INIT's vectors 
0 UCBSIZE=U Uebsc TT_LENGTH,- ; SI 
0 0 FLAGS=DPT =NOUNCOAD , ~ ; NO UNLOAD ALLOWED 
9 1 ADAPTER=U UBA,~ ; ADAPTER TYPE 
¢ DEFUNITS=8,- 3; Number of units to create 
00 NAME=YCDRIVER,- ; NAME OF DRIV 
0 4 VECTORSPORT EVECTOR : PORT DRIVER VECTOR TABLE 
0 5 DPT_STORE INIT 
0 6 DPT-STORE UCB,UCBS$B_F IPL ; FORK IPL 
9 C s DPT“STORE UCB -UCBSL EVAR, L.<-; CHARACTERISTICS 
03¢ 9 DEVSM~AVL i- ; 
O3¢ 40 DEVS$M~IDVi- ; 
O3C 241 DEVS$M~ODVi- ; 
O3¢ 4¢ DEVSM TRA: ; 
O43 44 DPT_STORE UCB, ucbei'D DEVCHAR?, L.-: DEVICE CHARACTERISTICS 
004 45 <DEVSM_NNM> : PREFIX WITH NODES’ 
004A 46 DPT_STORE UCB,UCB$B_DEVCLASS,B,DC$_TERM: 
004 4 DPT“STORE UCB.UCB$B-TT_DETYPE,8,TTS TYPE 
005 48 DPT-STORE UCB.UCBSW_TT-DESIZE.aW,TTYSGW_DEFBUF ; BUFFER SIZE 
005 49 DPT"STORE UCB,UCBSL_TT~DECHAR,@L.TTYSGL_DEFCHAR ; DEFAULT CHARACTERS 
0060 250 DPT“STORE UCB,UCBSL_-TT-DECHA1.@L.TTYSGL_DEFCHAR2: DEFAULT CHARACTERS 
667 9251 DPT“STORE UCB, UCB$W_TT-DESPEE,@8,TTYS$SGB_DEFSPEED: DEFAULT SPEED 
O6F 3g DPT“STORE UCB, UCB$W-TT-DESPEE+1 ,@8,TTY$GB_RSPEED: DEFAULT RSPEED 
07 ‘ DPT-STORE UCB,UCB$B_TT_DEPARI,@8,TfY$GB_PARITY ; DEFAULT PARITY 
ore 54 ee DPT“STORE UCB,UCBSB_TT-PARITY,@B,TTYSGB-PARITY ; DEFAULT PARITY 
007€ 255 DPT-STORE UCB,UCB$B_DEVTYPE,B.1T$_UNKNOQN : TYPE 
9080 56 DPT“STORE UCB,UCBS$W_DEVBUFSIZ.aW,TTYS$GW_DEFBUF ; BUFFER SIZE 
008 57 DPT“STORE UCB,UCBSL_DEVDEPEND,@L.TTYSGL_DEFCHAR ; DEFAULT CHARACTERS 
008E 58 DPT“STORE UCB,UCBSL_DEVDEPND2,@L,TTYSGL DEFCHAR2; DEFAULT CHARACTERS 
009 59 DPT“STORE UCB.UCBSW-TT_SPEED, 08, fTY$GB_DEFSPEED ; DEFAULT SPEED 
09 60 DPT-STORE UCB,UCBSW_TT-SPEED+1,@8,TIYSGB_RSPEED ; DEFAULT RSPEED 
OA 61 DPT“STORE UCB,UCB$B_DIPL,8, 21 : DEVICE 
OA 6 DPT_STORE UCB,.UCBSL_TT_WFLINK.L, ; Zero wr te ques 
OAg 6 DPT"STORE UCB,UCBSL_TT-WBLINK,L, ; Zero write queue 
64 DPT_STORE UCB,UCBSL_TT_RTIMOU,L, lero read timed out disp. 
OBC 65 DPT_STORE ORB,ORBS$B_FLAGS,B,- ; Protection block flags 
08 66 ZORBS$M.PROT_16> ; SOGW protection word 
o¢ 6 DPT_STORE ORB, ORBSW_ PROT, aw, TTVS$GW PROT : Default allocation protection 
C 68 DPT“STORE ORB, OWNER, aL, TTYSGC_ OWNUIC : Default owner Ul 
¢ $9 DPT"STORE SOB bDBSt bbe Dd; YC$DDT 
D 71 DPT_STORE REINIT 
D re DPT"STORE CRB. CRBSL_INTD*4,D Y CSINT INP ; RECEIVER INTERRUPT 
D 7 DPT“STORE CRB,CRBSL-INTD2+4 bY CSINTOUT : TRANSMITTER INTERR 
D 74 DPT-STOR E CRB.CRBSL-INTD+VECSC_INITIAL,D YCSINITIAL : CONTROLLER INIT 
E ie DPT-S TOR E CRB. CRBSL- INTD+VECSL-UNITINIT,O,YCSINITLINE: UNIT INIT 


Ae 
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77 
A: DDTAB p VNAM = YC,- _; DUMMY DMF PORT DRIVER DISPATCH TABLE 
= g* 
0 FUNCTB = 
0000 : .PSECT $$$115_DRIVER,LONG 
4; 
5 ; THE ASSOCIATED CLASS DRIVER USES THIS TABLE TO COMMAND THE PORT DRIVER. 
$ ; THE ADDRESS OF THIS TABLE IS CONTAINED IN THE TERMINAL UCB EXTENSION AREA. 
; THE OFFSET DEFINITONS ARE DEFINED BY TTYDEFS. 
3 i YCSL_SIL_ERROR: 
00000000 0 0 a 0 
C 291 YCSL_ERROR: 
00000000 00 36 .LONG 0 
04 93 YCSL -DRAXNT ERROR: 
00000000 4 94 0 
44 295 PORT _vecior: 
get ee 
O44 38 : DMF SPECIFIC DISPATCH TABLE 
0044 00 SVECINI YC, YCSNULL 
ore 1 SVEC st TAR RTIO YESSTARTIO : START NEW OUTPUT 
904 0¢ $VEC INE,Y LINE + SET NEW SPEED/PARITY 
050 30 SVEC 3g 8 vésbs Ser" : SET OUTPUT MODEM SIGNALS 
0054 304 $VEC —XON ale : SEND XON SEQUENCE 
0058 05 $VEC XOFF, YCSXOF ; SEND XOFF SEQUENCE 
95¢ 06 $VEC TOP. YC$STOP : STOP OUTPU 
006 0 $VEC ABORT, YCSABORT : ABORT OUTPUT IN PROGRESS 
068 8 $VEC RESUME , YCSRESUME : RESUME STOPPED OUTPUT 
O6¢ 09 SVEC AINT, YCSMA : INVOKE MAINTENANCE FUNCTION 
0 10 SVEC FORRES yCSF ORK : PORT FORK CALLBACK 
or 11 SVECEND 
8 1 
BE 
6 0 315 YCSNULL: : NULL PORT ROUTINE 
05 00 0 18 RSB 
081 31 
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Yoon O08 REGISTER DEFINITIONS . ioe Pi 92:99:32 TTDRVR.SREIYCDRIVER.MAR:1 C1) 
” .SBTTL REGISTER DEFINITIONS 
1 ; 
1 j : CSR BIT DEFINITIONS ( CSR ) ( READ/WRITE ) 
1 : (NOTE: THIS REGISTER MUST ONLY BE READ IN RESPONSE TO A TRANSMIT INTERRUPT. 
4 : TO LOAD AN INDIRECT REGISTER, ONLY WRITE OPERATIONS MAY BE USED) 
1 6 SVIELD DAFCSR.0, <~ 
1 <IADDR.5.M>,- ; INDERECT REGISTER ADDRESS 
1 : <CLEAR,1,M>,- ; MASTER RESET 
1 <RCVINT,1,M5,- ; RECEIVER INTERRUPT ENABLE 
0 1 0 <,1,>,° : DON'T USE THIS 
1 <LINE,3,M>,=- r LINE NUMBAE ( - 7) 
081 § <,1,>,° 
0 : <OMAERR,1,.M>,- : DMA TRANSMIT ERROR 
081 5 <§NOINT,1.M>,- ; TRANSMIT INTERRUPT ENABLE 
Ht 6 <SNDRDY,1,M>= t TRANSMITTER READY 
081 8; 
a081 ip ; RECEIVER BUFFER ( CSR+#4 ) ( READ ONLY ) 
0081 41 SVIELD DMFRCV,0,<- 
0081 43 <BUF ,8.M>,- ; RECEIVER DATA 
00 1. <LINE,$,M>,-  : LINE NUMBER (0 ~ 7) 
081 344 <DS_CHG.1,M>,- : DATA SET CHANGE INTERRUPT 
0081 345 <PARERR,1,M>,- ; PARITY ERROR 
0081 346 <FRAMER.1,.M>.= : FRAM 
0081 347 <OVERRUN,1,M>,- : OVERRUN ERROR 
88 1 48 <VALID,1,M>=- : DATA VALID 
OB] 340 : 
09 1 351 : LINE PARAMETER REGISTER ( CSR+2 ) ( WRITE ONLY ) 
OB] ag 
60 1 354 SVIELD DMFLPR,0,<- 
00 1 355 <LINE,$,M>,-  ; LINE ER (0-7) 
081 36 <SIZE,2.M>.- |: CHARACTER SIZE 
081 5 <PARITY.1,M>,- : PARITY ENABLE 
081 38 <ODD,1,M>.= : ODD PARITY 
081 35 <STOP,{,M>,- | NUMBER STOP BITS 
081 360 <RSPEED.4,M>,- 3 RECEIVER LINE SPEED 
<TSPEED.4.M>.- : TRANSMITTER CINE SPEED (BOTH RVC/TX FOR LINES 2-7) 
1 ; 
9 64 $ LINE CONTROL INDIRECT REGISTER (INDIRECT REGISTER #2) 
1 366° 
G 1 66 SVIELD DMFLCT,0,<- 
1 8 <XMIT,1,@>,- |; TRANSMIT ENABLE 
0 1 6 <AUTOK,1,M>,.- 3 AUTO XON/O 
1 0 <RCV,1,M>,=- : RECEIVER ENABLE 
1 71 <BREAK.1,M>.-  ; SEND BREAK 
1 fe <FLUSH,1.M>.= : FLUSH OUTPUT SILO/ABORT TRANSMIT 
1 37 <DS ENABLE »{ .M>,~ ; ENABLE MODEM TRANSITION INTERRUPTS 
4S <AAINT. >.>; 


ses 
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VOenOO8 REGISTER DEFINITIONS . = SEE = 138% 02:43:32 TTDRVR.SRCJYCDORIVER.MAR; 1 ° (1) 
} 6 SPRERPT 41 AP 3; PREMPT CURRENT OUTPUT 
1 38 
| : MACRO USED TO ACCESS INDIRECT REGISTERS 
1 o 
1 — GETIND vt ET. RX 
1 4 OVL prea CRBC(R RO ; est CRB pees ty. 
1 5 ROL est TNtDave cs 1DB¢ GET CSR ADDRESS 
! § B1sv3 pe 040>+<OFFSET#8>>, Rotasu -UNIT(RS), (rd): Setecr’ ONDIRECT FIELD 
1 8 MOV 6(RO) ,RX 3; GET CONTENTS OF INDIRECT F 
° 30 [ENDM © GETIND 
081 35 3 OUTPUT DELAY MACRO 
0 ! 7 3 TO RELEASE THE UNIBUS 
1 95 MACRO 
081 9 
081 9 
0081 98 DR 
8° 1 99 ENDM 
081 400 
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«~SBTTL CONTROLLER INITIALIZATION 


vou=000" CONTROL 


ze 


; YCSINITIAL - INITIALIZE INTERFACE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED AT SYSTEM STARTUP AND POWER RECOVERY. 
INPUTS: 
ns ~ epperes OF THE UNIT CSR 
R& = ADDRESS OF THE UNIT CRB 
; OUTPUTS: 
R2 is destroyed. 
IMPLICIT INPUTS: 
IPL = IPL$_POWER 


fy 
§ 
1 
1 
1 
1? 
i 
fF 
t 
¢: 
' 
if CSINITIAL:: ; INITIALIZE DMF UNIT 
Yi; : SET UP CONTROLLER 
; CLASS_CTRL_INIT YCSDPT,PORT_VECTOR; RELOCATE THE NECESSARY TABLES 
# 
i 
44 
22 
i 
4 
5 
8 


1 


25$: 


2 » 000d 000000 Gn Co Co CD CD GD CO CU COON CDG COCO CD CDCOCRDCDCDCROCSCROCDODOD fo 


OD Op co 
ED ON a i ed a a OTIS 


S seosssssssssssss 


0B AB) «95 TSTB cRBSB_ TT_TYPE(R8) : CONTROLLER TYPE INITIALIZED? 
06 1 BNEQ : IF NEQ YES 
0B AB «(OA COD MOVB $#0T$_DMF32,CRB$B_TT_TYPE(R8) : ASSUME DMF 32 
10a5 9 TSTB DB$B_COMBO_VECTOR_OFFSET(RS) |: DMF32 HAS A VECTOR OFFSET OF 16 
05 12 BNEQ : IF NEQ NO, MU A DAES 
0B AB) 45 BF pe MOVB $#DT$_DMZ32,CRBSB_TT_TYPE(R8) : SET CONTROLLER TYPE DMZ 
50 OF AS 98 CVTB 1DBS8 COMBO. CSR TORFSET (RS) RO; GET THE OFFSET TO THE MAIN CSR 
10 a5 8 SUBBS DBS VECTOR OFFSET(RS), - ; LOAD THE SOFT VECTOR 
6440 0B AS itt . eC TORR >, (R ; 
64 20 B80 MOVW #DMFCSRSM_CLEAR, tha) + CONTROLLER RESET 


: WAIT TILL CONTROLLER INITIALIZATION IS COMPLETE 
TIMEWAIT #100 ,#OMFCSRSM_CLEAR,(R4) ,W,.FALSE. 
MOVW pan 43 RSM_RCVINT>!- ENABLE RECEIVER INTERRUPTS 


<OMF C CSRSM SADINI>>, (R4) : ENABLE TRANSMITTER INTERRUPTS 
BLBC = RO, YCSCTRC_ERRO 


64 4040 8F 860 
09 50 €9 


100$: 


04 A4 00000000'GF 90 MOVB G*TTYSGB_SILOTIME,4(R4) ; INIT INPUT SILO TIMEOUT VALUE 


PEPER PEPE PEPPER PP PEPPER PEPE PPP PPP PPP PEPE PEPE PPP PPP PPP PPP PEE 25 
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Yoon 05 CONTROLLER | TALIZATION” mets 1 92:43:32 TTDRVR.SRCJYCDRIVER.MAR; 1 eo (1) Vou: 


f 

T 

| RSB 
YCSCTRL_ERROR: 

4 RSB 


vo4=000" unit IN 


be se 
>< 
re 
=o 
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Oo 
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~SBTTL UNIT INITIALIZATION 
YCSINITLINE = UNIT INITIALIZATION 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE PERFORMS A SIMPLE UNIT INITIALIZATION. 
INPUTS: 
RS = UCB ADDRESS 
OUTPUTS: 
R4,R5 ARE PRESERVED. 


YCSINITLINE:: 
MOVAL — YCSVEC,RO ; GET THE DISPATCH TABLE ADDRESS 
CLASS_UNIT_INIT 
BISW ~ #UCBSM_ONLINE ,UCBSW_STS(R5); SET ONLINE 


ASHL = UCBSW UNIT(R5) #1,R3__ |; BUILD UNIT'S BIT MASK 
MOVW R3,UCB$W_TT_UNITBIT(RS) ; SAVE IT 


BISW #TTYSM_PC_DMAAVL! TTYSM_PC_XOFAVL,-; SHOW DMA FEATURE AVAILABLE FOR U 
UCBSW_TT_PRTCTL(RS5) :7IN PORT LEVEL 


MOVL UCBSL_TT CLASS(R5),R1 ; ADDRESS CLASS VECTOR TABLE 
JSB @CLASS_SETUP_UCB(RI) ; INIT UCB FIELDS 


SET MODE CODE NEEDS TO TOGGLE THESE BITS 
JSB YCSSET_LINE ; INIT SPEED/PARITY 


50 FF39 CF ODE 
64 A5 10 AB 


— 
So 
sad 
ee 


3. 01 54 a 78 6 
0106 CS) 5 B0 

2% 08 O 

0122 C5 8 
51 0114 C5 00 
08 B61 =16 
00000764°EF 16 


; ENABLE LINE RECEIVER , TRANSMITTER AND MODEM INTERRUPTS 


64 54 A5 464048 BF Ad BISW3 #*X4048,UCB$W_UNIT(RS),(R4) : SELECT LCT 
06 A4 «25.—s«BO MOVW = #<<DMFLCTSM_XAIT>!- : ENABLE TRANSMIT 
<DMFLCTS$M_RE : ENABLE RECEI 


M_RCV>! = EIVE 
<DMFLCTSM_DS_ENABLE>>,6(R4) AND MODEM INTERRUPTS 


: INIT RECEIVER MODEM STATUS FOR DMF 
0 RECV MODEM INDIRECT REG 


64 54 A5 T RECV 
4 E RECEIVER MODEM STATUS 


BISWS #*Xx4040,UCBS$W_UN 
012 MOVB D 


4 R4) ; SELEC 
C5 7(R4) ,UCBSB_TT ) : UPDAT 


~m 
uw 
bad 


MOVZBL #MODENS ; ASSUME INIT MODEM PROTOCOL 


OOO O09 090900090909 09 6969 09 SI SII NSIS INIA AAAAAUMUIUIMOOQOOOOOCOOOOOOOOCOCOCOCOCO +o 
DOK MM MN Co BO AAAAOAA OOOO DOWN OOM NNN 
PIRI 3 9 9 9 9 | QOD DOOO0O OO OOOO OO 0000 0000 0909 09 09 09 09 SII NINN NID 

CII OOD NIA UNE WII @§ O OOD NAN EWN 9 OD NAME WIN OS OD NAME WIN O OODNOULS UM "O0OOnN Ps 


ed a oe a a = ss ot 4 4 — +) = SS SS SS = A) 2 SS 2 2s SS 2 Ss SS 3 SS 2 2 a 2 2 1 


0 9A C_INIT,R1 
14 C3 dO MOVL UCBSL_TT™CLASS(R5),.RO  ; ADDRESS CLASS VECTOR TABLE 
oc 80 «(16 308: JSB @CLASS_DS_TRAN(RO) : INVOKE TO INIT MODEM PROTOCOL 
08 64 A5 O05 €1 BBC #UCBSV_POWER ,UCBSW_STS(R5),40$; DID WE DETECT A POWER FAIL 


YCDRIVER - Port Driver for DMF Async 16-SEP-1984 AX/VMS Macro v04-00 Page 49 YCDF 
Von O08 UNIT INITIALIZATION g- Hitt 7 Ve $3 32 TTDRVR.SRCJYCDRIVER.MAR:1 C1) V 
50 0114 €5 09 196 4 MOVL  UCBSL_TT_CLASS(R5),RO ; GET THE CLASS VECTOR TABLE ADDRESS 
2080 1 A 5 MP @CLASS_POWERFAIL(R ab) : AND GOTO THE POWERFAIL CODE 
05 1h 5 40$: SB 
4 ei: : ERROR DETECTED DURING INITIALIZATION 
1A7 i’ 
1A7 ; YCSUNIT_ERROR: 
64 A5 10 AA O1A7 “BIC #UCBSM_ONLINE ,UCBSW_STS(R5) ; UNIT NOT ON LINE 
oe oe 
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Marat MAINTENANCE ROUTINES ’ g-SEF =| 7 ge 93; HH TTDRVR.SREIYCDRIVER.MAR:1 (1) von 
tac a . .SBTTL MAINTENANCE ROUTINES 
Jac : + YCSMAINT = MAINTENANCE FUNCTIONS 
1AC 541: FUNCTIONAL DESCRIPTION: 
1AC 542 : THIS ROUTINE PERFORMS MAINTENANCE FUNCTIONS FOR THE DMF 
TAC 43 ; (LOOPBACK IS ONLY ALLOWED ON LINES 0 AND 1) 
TAC 45 : INPUTS: 
1AC 23 : RS = UBC ADDRESS 
Tac 48 ; UCBSB_TT_MAINT = FUNCTION TO BE PERFORMED 
1AC 20 + OUTPUTS: 
1AC 1: RO-R4 SCRATCH 
1AC 27 YCSMAINT: 
01 93 O1AC 555 BITB #10$M_LOOPa-7,- ; LOOPBACK FUNCTION 
012A cS AE 36 sedi CB$B-TT “MAINT (RS) ae 
13 B0 183 38 MOVW #TTSH_DS_DTR!TTSM_DS_RTS,~ + SET REQUIRED MODEM LINES 
00000281 "EF 16 0186 560 JSB YC$DS_SET ; SET THEM TO ALLOW LOOPBACK 
5 02 3c 01BC | 561 MOVZWL #*XO27R : SPECIFY LOOPBACK CODE 
eb 18 $6 pe BRB 10$ 
02 93 01C1 564° BITB #10$M_UNLOOP@-7,- ; RESET LOOPBACK FUNCTION 
012A oP 1¢3 69 sae UCBs TT_MAINT(RS) = 
1300 F B0 1¢8 é MOVW #256e<TTSH_ DS_DTR!TTSM_DS _RTS!*x1>, =; RESET REQUIRED MODEM LINES 
00000281 "EF 16 Cb 63 JSB YC$DS_SET ; SET THEM TO ALLOW LOOPBACK 
5 0 3 1D3 270 saat MOVZWL #*XOOTR : SPECIFY UNLOOP CODE 
51 24 a5 00 0106 te " MOVL =—s«UCBSL Lace (RS) : GET THE CRB ADDRESS 
0B Al 45 BF 91 ODA 57 CMPB 0s #O T$_BMZ32, 2RbsB.. TT_TYPE(R1) 3 IS THIS A DMZ 
13 O1DF #86574 BEQL 12$ ~ : YES THEN MODEM CONTROL ON ALL UNIT 
54 AS " 8} 161 ie cHPY H gucesw. UNIT(RS) ; ALLOWED ON THIS UNIT? 
1€7 8 12$:  GETIND 1,R1 > GET INDIRECT FIELD 
51 02 06 52 £0 1FA 28 INSV Re. #DMEL FLCTSV_MAINT,#2,R1 : SET MAINT FIELD 
06 a0 51 ' FF O57 OVW R1.6(PO) : UPDA 
50 (01 9A 3 0 MOV ZBL #1,R0 : INDICATE SUCCESS 
§ § 50$: 
50 p4 7 CLRL = RO 
5 i 4 RSB 
A $ 15$: 
40 8F 93 A BITB #1OSM_AUTXOF ENAG: 7,- 
012A C5 $B TT_MAIRT (RS) ;AUTOXON ENABLED 
5 3 i BEQL Vs ial : NO THEN MAYBE DISABLE 
0122 9 18 4 UCBSW_ it CORT CTL CAS) ; SET THE BIT AVAILABLE 
80 8F 93 0217 38 17$ BITB § #1O$M_AUTXOF _DIS@-7,- 


wn 


012A C5 
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$B_TT_MAINT(R5) 


#TTYSM_PC_XOFAVL,= 
UCBSW_TT_PRTCTL( 
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TTDRVR.SRCJYCDRIVER.MAR; 1 (1) 
;AUTOXON disa abled 

3 no then don't disable it 


; LOOPBACK FUNCTION 


NO 
!TTSM_DS _RTS!*XO1>, 23 SET REQUIRED MODEM LINES 


; SET THEM TO ALLOW LOOPBACK 
; SPECIFY NO LOOPBACK CODE 


; CHECK gynes FUNCTIONS 

; LINE OFF 

; NO 

; GET FIELD 

: DISABLE TRANSMIT AND RECEIVE 


UPDATE 


LINE ON 


GET FIELD 
ENABLE TRANSMIT AND RECEIVE 
3; UPDATE 


ean uf 


oO 
G 
— 
vu 
cs 
=e 
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: .SBTTL OUTPUT MODEM CONTROL 

YCSDS_SET = SET OUTPUT MODEM SIGNALS 

; FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE OUTPUTS THE OUTPUT MODEM SIGNALS FOR THE SPECIFIED UNIT 


4 
CON 
636 
638 : 
$39 
re : INPUTS: 
6 646 : R2 = LOW BYTE = SIGNALS TO ACTIVATE 
643 : HIGH BYTE= SIGNALS TO DEACTIVATE 
645 : RS = UCB ADDRESS 
0 o78 
0 647 : OUTPUTS: 
0 81 648 : 
0 1 649: RO-R3 ARE USED. 
81 650 :-= 
; 1 651 
1 63¢ YCSDS_SET: 
0125 cS 52 88 ‘ 1 65 BISB _R2,UCBSB_TT_DS_TX(R5) ; SET NEW OUTPUT SIGNALS 
2 F8 BF 7 6 654 ASHL #-8,R2,R : ACCESS SIGNALS TO RESET 
0125 cS) 52 «BA 0288 655 BICB R2,UCB$B_TT_DS_TX(R5) : RESET THEM 
0290 656 GETIND 1,-(S 
0125 ¢5 £0 Br 8B 0 As 637 BICB3 #*X0E0, ,UCBSB_TT_DS_TX(R5),= ; OR IN OUTPUT MODEM SIGNALS 
06 AO BE 80 Ges 659 mov (SP)+,6(RO) : OUTPUT UPDATED VALUE 
6580 661 
0280 662 


f ————— LL -— 
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i ~SBTTL RECEIVER INTERRUPT SERIVCE 

; YCSINTINP = DMF RECEIVER READY INTERRUPTS 

; FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE IS ENTERED WHEN 


> 


vou=000" RECE 


t 
V 
0 
0 
0 
Q 
Q 
0 
Q 
Q 
0 
0 
0 
Q 
0 
Q 
0 
54 DO 0 
6 
0 
BS 0 
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N A CHARACTER IS AVAILABLE IN THE UNIT'S 
> SILO, THE CHARACTER IS EXTRACTED AND IS PASSED TO THE ASSOCIATED 
; CLASS DRIVER. IF THE CLASS DRIVER RETURNS CHARACTERS(S) THEN NEW 
; OUTPUT IT INITIATED (NORMALLY ECHO). 


INPUTS: 

; OO(SP) = ADDRESS OF IDB 

; IMPLICIT INPUTS: 

3 RO.R1,R2,R3,R4,R5 ARE SAVED ON STACK. 

; OUTPUTS: 

; THE INTERRUPT IS DISMISSED WHEN THE SILO IS EMPTY. 
ic 


CSINTINP: : ; DMF INPUT INTERRUPTS 
GET THE CSR ADDRESS 
MOVL  a(SP)+,R4 ; GET THE IvB ADDRESS 
54 DD PUSHL R4 : SAVE IDB ADDRESS 
50 DO MOVL (R4),RO : GET THE CSR ADDRESS 
? GET THE CHARACTER FROM THE INTERFACE 
53 04 A0 B80 RS MOVW  4(RO) RB ; GET THE CHARACTER.ERRORS AND LINE NUMBER 
60 BGEQ 1008 ‘SILO EMP 


BITW O<DRFACYSR PARERR>! = 


<DMFRCV$M_DS_CHG>,R3 ERRORS OR MODEM TRANSITION ? 


POPIPOPIPIPINIPODIPININPININPINPINIAININPIPIPINIPPINIPIPINPINIPIPIPIPIPOPIPIPONPPIPINNYD 


RWwWHHMMMMMOOOOGCVCMOMOOOCMCOCBWWVIVIVIVIVIVIVOWVOWVVDOVOWVOVIWVOOOWWOWVOIOWIIOOOOIOIWIIOW wo 

OW MOO MD OL FS MUNI 9 WDDDOIWOOOCOCOCCOCCOCOCO OOOO OOOOOOOOoOOO 

NR tt 3) 2 QOODODO9000 00 OOOO OO 000 090909 09 09 09 09 09 09 SI NI NII NIN NIAAA OOo 

SONA NEW OO DNAUNE WINS OOO NIA IE WIN SO OO NAU EWN OC OONOUE WN OOONOUS D-- 
ee 


NNSA PA AAA AAA AAAAAAAAAAAAAAAOAAAAAAO OAS 


3% (1 BNEQ 508 :YES,PROCESS THEM 
52 53 F8BF 7 27$: ASHL R3,R : GET THE LINE NUMBER 
52. FFFFFFF& 8F CA BICL #*C<7>-R : 
53. 553) MOVZBL R3,R : CLEAR THE HIGH BYTES OF CHARACTER 
55 1B A4d2 09 MOVL DBSL_UCBLST(R4)CR2],R5 ; GET THE UCB FOR THAT LINE 
DD (1 BEQL 23 : IF EQL THEN NOT THER 
0110 051 JSB @UCBSL_TT_PUTNXT(RS) ; BUFFER THE CHARACTER 
10 1 BLEQ NONE OR STRING OUTPUT 
60 54 A5 4040 er a9 B1SW3 #4040 UCB$W_UNIT(RS), cho) ; SELECT OUTPUT SILO INDIRECT REGIST 
06 a0 53 90 MOVB § ; OUTPUT CHARACTER 
54 6f D0 30S: MOVL (36) Ra : GET IDB ADDRESS 
(7? (11 ie BRB 25$ > CONTINUE 
F9 «13 BEQL 30% ; NO CHARACTER 
00000357°EF 16 JSB BURST_OUTPUT + START BURST 
Fl BRB $ 
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Yoon OUD RECEIVER INTERRUPT SERIVEE met : $3; 3 TTDRVR.SRCJYCDRIVER.MAR; 1 vO4 
FB . 
FB g 50s: 
re 4 i : PROCESS PARITY, FRAME OVERRUN ERROR OR MODEM TRANSITION 
52. 53 F8 Br 78 oF ; $ ASHL = #-8,R3, R ; GET LINE NUMBER 
52. FFFFFFF& BF CA 7 BICL #*C<7>; 
55 18 A442) OD 7 8 MOVL DBSL > WEBLST(RG)CR2I, R5 : GET UCB ADDRESS 
OE 1 recy BEQL 5 IF EQL THEN NO UCB 
19 53 : E 730 BBS #OMFRCVS$V_DS_CHG,R3 008: MODEM TRANSITION 
52. 0114 C5) oD 1 731 MOVL UCBS$L_TT_CLASS(R5). RO : GET CLASS DISPATCH 
14 Be 18 te : JSB QCLASS. READERRORCRS) + SIGNAL 
AS 1A f Fe BNEQ + CHRRACTER TO ECHO 
cE (11 IC f 5 BRB 30$ 
SE 046 «6 CO «(O31E =? $ 100$: ADDL #4,SP ; REMOVE IDB ADDRESS 
50 «BE OOD eed 8 MOV  (SP)+,RO + RESTORE REGISTERS 
52 BE) OD C8247 MOV (SP)+.-R2 ; 
54 «BE OO 7D 7 740 MOVQ = (SP)+.R4 ; 
= 3 3 200$ = 
60 52 4040 8F Ad 032B reg BISW3 #*X4040,R2, (RO) : SELECT MODEM INDIRECT REGISTER 
52 07 AO 9A 0331 744 MOVZBL rar RO) : GET CURRENT RECEIVE MODEM SIGNALS 
0124 65 52 90 0335 745 MOVB UCB$B_TT_DS_RCV(R5) : UPDATE CURRENT INPUT MODEM SIGNALS 
51 9A 033A 146 MOVZBL patty, “DATASET,R1 : TRANSITION TYPE IS D 
0 DD 033D 74 PUSHL R : SAVE CSR ADDRESS 
54 011465 DO O33F 748 MOVL UCBSL_TT_CLASS(R5),R4 : GET CLASS DISPATCH 
0C B4 16 0344 «749 JSB @CLASS_DS_TRAN(R4) + INVOKE TRANSITION ROUTINE 
50 BEDO 0347 750 POPL Hi : RESTORE CSR ADDRESS 
FEOF 31 O34A 751 BRW 30$ 
034D 13¢ 
0340 «75 
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YOenOO8 START 1/0 ROUTINE " §- 3-138 02:93:32 TIDRVR.SREJYCDRIVER.MAR:1 
4p 5 o~ .SBTTL START 1/0 ROUTINE 
4p $ : YCSSTARTIO = START 1/0 OERATION ON DMF 
4p : ; FUNCTIONAL DESCRIPTION: 
4D 781 : THIS ROUTINE IS ENTERED FROM THE DEVICE INDEPENDENT TERMINAL STARTIO 
4p 166 ; ROUTINE TO ENABLE OUTPUT INTERRUPTS ON AN IDLE DMF UNIT. 
4D 764 : INPUTS: 
4D 65 ; 
4D 66 : R3 = CHARACTER AND CC = PLUS 
4p 167 ; ADDRESS AND CC = NEGATIVE 
4D 169 : RS = UCB ADDRESS 
4D 770 ; 
4D 771 ; OUTPUTS: 
4D 108 ; 
40 773: RS = UCB ADDRESS 
4D 774 ;:-- 
40 775 .ENABLE LSB 
4D 176 YCSSTARTIO:: : START 1/0 ON UNIT 
66 «18 0 40 77 BGEQ 908 + SINGLE CHARACTER 
50 34 AS DO O34F 778 MOVL  UCBS$L_CRB(RS),RO : GET CRB OF UNIT 
50 2c BO 00 33 79 MOVL  @CRBSC_INTD+VECSL_1DB(ROS RO; GET CSR 
y 57 ret BURST_OUTPUT 
S52. 0120 ¢3 3c 0357 18¢ ucesi " OUTLEN(RS),R2 ; GET LENGTH 
01 €E1 O35c 78 DMAE USE SILO IF DMA NOT ENABLED ON THIS LINE 
09 0122 C5 SE 0784 acute Tt parcte (as). s1L0. OUTPUT 
00000000'GF 52 81 0362 785 CMP R G*T TYS6 MASIZ LARGE ENOUGH FOR DMA 
60 18 0369 7 6 BGEQ : YES SO DO DMA 
68 7 
68 788 SILO_OUTPUT: 
60 54 A5 46040 8F Ad $8 789 BISW3 #*X4040 ,UCBSW_UNIT(RS),(RO); SELECT TRANSMIT SILO 
51 06a0 9 790 NOVZBL 6(RO) R1 ; GET SILO DEPTH 
ee ae ee 16 731 SUBL3_ RI, 733" RI ; CONVERT TO NUMBER SLOTS AVAILABLE 
51 52 B1 037A 79 CMP sii : BURST LARGER THAN SILO? 
: 1B 037D 79% BLEqu 508 ; 
52 51 9A O37F 195 ae MOVZBL R1,R : SLOTS AVAILABLE IS MAXIMUM 
53 O11C CS.) oD 3 135 MOVL UCBSL_TT_OUTADR(RS).R3 ; GET ADDRESS 
11¢ C5 C 79 ADDL R2,UCBSL~TT -OUTADR(R3) > UPDATE POINTER 
120 ¢ A : 79 SUBW SiR jveese WTTTOUTLEN(R5) AND COUNT 
0 1 0 BEQL 60% : ALL DONE, MO NEED FOR BURST 
9800 io 93 1 BISW #TTYSM_TANK BURST. ; STENAL BURST ACTIVE 
108 C5 97 : fee UCBSW_TT_HOCD (RS) 
08 9 O39A 4 BLBC ; EVEN TRANSFER 
06 AO 9D 5 MOVB Fe OS cro) : OUTPUT ODD BYTE 
D A DECL Re + UPDATE COUNT 
F «13 A ian BEGQL 308 : DONE 
52 52 FF SF 78 AS § ones ASHL  #-1,R2,R2 : CONVERT TO WORD COUNT 
06 a0 83 BO O3AA ? "move «= (RB) +, 6 (ROD 


Se , 


s5 | 
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VOen O08 START 1/0 ROUTINE ' "978 -$ ety 92:99:32 TTDRVR.SRCJYCORIVER.MAR; 1 . (1) 


A 1 DELAY ; TO RELEASE THE UNIBUS 
F652. «FS i 18 SOBGTR R2,75$ : LOOP TILL DONE 
05 Bi 13 80$: RSB ; RETURN TO CALLER 
i$ 90$: 
13 13 «038 18 BEQL 1008 : SKIP IF NO NONE 
1 GETIND 0 : SELECT OUTPUT SILO 
06 A0 53 90 C6 : con MOVB ~— R36 (RO) OUTPUT CHARACTER 
05 O3CA ; “ee 
(8 DISABLE LSB 
(B 4 


ocs 
DOB! 
DEV! 
DEV! 
DEV! 
DMA, 
DMA, 
OMA. 
DMA, 
OMA, 
OMA 
DMF | 
DMF | 
DMF | 
OMF | 
DMF | 
DMF | 
DMF! 
DMF! 
DMF | 
OMF | 
DAF 
DMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 
OMF 


ets" 


c 
06 0122 ? 
49 0122 C5 


cs 

130 € 

51 114 C5 
1¢ 61 


53.02 
00000000 ' GF 


10 


ro 
> 
oc 
ce 
_s 
be 


RAH HHH HMMMMMO SS SO OOS II OHNAOONOAAOOOCANNAOOAOAAOAOOOMOMOONANAO 
Mm > bP & 9 OOD DUI SS ONNNN SV VNOWDWVIWVOIOVWVIVWVVVVVOWVWVOWVOVOIOVWVOIWVOW 


G00909 SII NINN SOOT PRADA AA AAAI EE BB Ee a AAA AAA AOI 


SOOOOOOOOOOOOCOOOOCOOCOOCOOOOOOSOSSOOCOCOSCOCOCOCOCOOOCOOOCOOOOOOOOOOOOw 
AAA AAA AINA AAI AAAI AIA AAAI AAA AI AWA AINA AAAI IAAI AAA AIAN ANA ADI AAI 


mo 
oe] 


: .SBTTL PORT DMA ROUTINES 
DMA_START - 
FUNCTIONAL DESCRIPTION: 


STS UP 
; THAT ARE DONE IN Fe ES 


; INPUTS 

; RS = UCB ADDRESS 
; OUTPUTS: 

R5 = UCB ADDRESS 


RO PRESERVED 
R1,R2,R5,R4 DESTROYED 


BMA. START: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Ses 

ant 
Oo 
S 
cS DD 
- 

ee oO 
< vo 
oO 
Cc 
= 
wv 
G 
= 
@o 
Cc 
z= 
wn 


wW_TT_HOCD(RS) 
BICB ait TP ABORT ; 
UCBSB_ 1? “STAT(RS) 


BBC #TTYSV_PC_P 
ucBSwW_TT Prictt chs), 5$ 
BBS #TTY$0_PC_MAPAV 


5$: 

BISB #TTYS$M_TP_ALLOC,- : 
UCB$B_TP_STAT(R5) 

MOVL UCBSL “TT"CLA 


=O OO NIP NEI 2§ OOD NA NE WIN HO OD NAME WII SO OD NOA EW O ODNOUM ES UT" OOONOA Ze 


SS(R5),R1 
JSB aCLASS. FORK(R1) : 
RSB ; 
DMA_ALLOC: , 
5$: 
MOVZBL #2,R3 3 
JSB G* [OC SALOUBAMAPN : 
SETIPL UCBs DIPL(RS) 
2 BISW _PC_MAPAVL,- 


DMF Async eh: 1 mith oe $3: $2 AX/VMS Ma acre 


BisW #TTYSM TANK DMA, : 


L 
UCBSW_TT “PRICTL(RS), DMA_ é 


—. 
00 Page 57 
ER ; (1) 


Vv 
TTDRVR.SRCIYCD 


INITIATE DMA OUTPUT 


SHOW DMA MODE ACTIVE 
RESET ANY OLD ABORT REQUESTS 


; CHECK IF UNIT HAS PERMANENT MAP REGISTERS 


SKIP IF NOT AUTHORIZED FOR PERM MAPS 
SKIP on IF MAPS ALLOCATED ALREADY 


ONT INU 


SHOW ALLOC FORK ACTIVE 


; GET CLASS VECTOR ADDRESS 
; FORK TO FIPL FOR MAP 


; RESUME AT DMA -ALLOC. 


REQUEST 2 MAP REGISTERS 


; edhe te a ie ory VICE IPL 
; SHOW MA ATED 


I 
I 
i 
I 
I 
1 
I 
I 
I 
I 
I 
I 
I 
i 
I 


et etotat ttt tt 3-4 


TIMSET R2,R1,LOCKOUTPUT ;RECOMPUTE TIMEOUT VALUE FOR THIS 


:PORTION OF THE DMA BURST 


R3 - STRING ADDRESS 
Re - LENGTH 


YCORIVER rc for DMF Async 16-SEP-1984 7:25:59 VAX/VMS Macro V04- 
Mirah OUTIN : g7 3-138 82:93:32 YT TORVR. sae e Univer. MAR; 1 
0122 3 UCBSW_TT PRTCTL (RS) 
: 2 BICcB ycee SA_TP A ALL OC ; SHOW ALLOC FORK DONE 
0139 g UCBSB 1? STA (RS) 
§ BLBS = -RO, ; SUCCESS 
50 4 as 4 : MOV uces roRBcRs) RQ GET CRB OF UNIT 
& D MOVL  acrBSC C-INTDvECSL L. 108(R0S , RO; GET CSR 
1000 8F AA 041 0 BICW 30s #@T TYSM : RESET DMA MODE 
91 ¢ i 9 UCB$W_TT NOCD CRS) 
$2. 0120 ¢ 35 1A «BY MOVZWL UCBSW"TT"OUTLEN(RS) RZ; REST OR — OUTPUT LENGTH 
FFG 1 1F $4 BRw SILO_OuTPuT ; USE SILO FOR OUTPUT 
95 208 
50 24 a5 00 4: MOVL UCBSL_CRB(RS) RO GET CRB ADDRESS 
4 Ap DO 9 MOVL  CRBSL-INTD+VECSW_ MAPREG(RO) .- 
012¢ ¢ ? ; UCBSL-TP_MAP(RS)~ ; SAVE MAP FIELD IN UCB 
¢ 
¢ $91 DMA_CONTINUE : 
09 £0 or BBS #TTY$V_TP_ABORT ; BRANCH IF DMA TO BE ABORTED 
Oc 0130 ¢ ucese_TP “STAT(RS), 2s 
3 glic cs po MOVL _- UCBSL_TT_OUTADR(RS),.R3_; GET ADDRESS OF NEXT STRING 
12 3 MOVZWL UCBSW-TT“OUTLEN(RS).R2 ; LENGTH OF OUTPUT 
00g 1 C BNEQ : SKIP IF Chore TO DO 
3 3 2s: BRW DMA_DONE : BRANCH IF TRANSFER IS DONE 
50 DD i : PUSHL RO ; SAVE INPUT VOLITAL REGISTER “'CSR"’ 
00000200 8F 52 D1 044 CMPL = R2., #512 ; NEXT BURST TOO LONG FOR MAPS? 
15 044A BLEG > NO 
52. 0200 BF 3¢ 46 MOVZWL #512,R2 
1 
c§ 53 C0 : 5$: ADDL ,UCBSL_TT_OUTADR(RS) ; UPDATE CHARACTER POINTER fOr NEXT TIME 
¢ A 6 SUBW “UCBSW-TT-OUTLEN(R5) ; UPDATE COUNT FOR NEXT 
$8 
C 
7¢ 
7¢ 
rf 
eC - UCB 
24 7¢ PUSHR #*M<R2,R5> 
50 3 A 09 7 MOVL UCBSt ERBC(RS) RQ GET CRB ADDRESS 
1 38 D MOVL  @CRBSC_INTD+VECSL ADP(ROS R ; CONFIG REGISTER 
F EF EXTZV #VECSV APR _MAPR 
50 012¢ ¢ UCBSL_TP_MAP(RS) .RO : GET STARTING MAP REGISTER 
51 0800 C140 bE MOVAL att “MAP CRI) EROS. Rl =: GET 1ST MAP REGISTER ADDRESS 
54 06OC«S3}tC ar ¢ 9 BICL3 ax R3,R4 CALC SVAPTE OF BUFFER 
34 4 F7 8F 3 ASHL R ISOLATE PAGE 
5 ‘GF 6D ROVE G=naosél SPTBASE RS 


GETS SVAPTE OF BUFFER 
INTO R4 
COMPUTE BYTE OFFSET IN PAGE 


DOOD NIDA AL WN SO OD NIA AE WI OOO NA NFS WIN OO DNAUS WN O 


WA AAMAAAAANINININININININININ — 3 3 3 3 3 3 9 3 BQO OO 


WODODOOOODOVOOODOOOOODOOOOOOOOODOOOOOOOOOOODO 


4 of” & RY 
55 FFFFFEOO 8F CA BICL a*C*XiFF, 
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Mire PORT DMA ROUTINES ’ Breer eBe BETFi8e FATONTS Baese NOt Ol an. Page 92, 
048 4 
148 41; LOAD MAP REGISTERS 
48 42 : RO = MAP REGISTER NUMBER 
148 43: Ri = ADDRESS OF FIRST MAP REGISTER 
148 44 : R2 = BUFFER LENGTH 
48 45 : R3 = BYTE OFFSET IN PAGE 
R48 46 ; R4 = SVAPTE OF BUFFER 
‘ 
52 ve 9A 048 48 MOVZBL #2,R2 
DO d4B 49 10$: MOVL  (R4)+,R5 : GET CONTENTS OF NEXT PTE 
D8 : THIS CODE ASSUMES THAT DMA IS FROM NONPAGED POOL 
55 0B 15 00000600 8F FO 048 INSV = #*X400,421,411,R5 : SET VALID BIT, DATA PATH 0 
81 5 DO 04C 4 MOVL RS, (RIS+ : LOAD INTO MAP REGISTER 
EE F acs 38 SOBGTR R2.10 
24 BA hts 3? POPR #*M<R2,R5> ; RESTORE LENGTH,WRITE BUFFER, UCB 
53 09 «+09 50 FO 04C9 936 INSV —- RO, #9, #9, RB ; COMPUTE UNIBUS ADDRESS 
9 53 02) «10)=«COEF «OO4CE §=—-960 EXTZv #16 #6 .R$,RO : GET HIGH 2 UNIBUS ADDRESS BITS 
52 02 #OF «650~=«FO 4p 361 INSV RO,#14;82-R + MERGE WITH BYTE COUNT 
4D 308 GETIND 2 ; SELECT DMA INDIRECT REGISTERS 
06 AO 53 BO O4E7 964 MOVW «R36 (RO) : LOAD ADDRESS (INDIRECT REGISTER 
4EB 965 : AUTO INCREMTS TO COUNT) 
06 AO «6—52~—=C«wjBO 4eB 366 MOVW ——-R2, 6 (RO) : LOAD COUNT/ INIT TRANSFER 
50 BEDO O4EF 368 POPL RO : RESTORE CSR ADDRESS 
05 O4F 96 RSB : RETURN TO CALL 
oe any 3; FORK DISPATCHER, ISR, OR STARTIO 
¥ 
04 F 76 DMA_DONE : : DMA COMPLETION 
MES Oph 
03 EO O4F3 975 BBS #TTYSV_PC_PRMMAP,- ; SKIP FORK IF MAPS PERMANENT 
2€ 0122 ¢ 04F 976 UCBSW_TT_PRTCTL(RS) ,DMA_POST 
4 88 04°9 97 BISB Os #TTY DLLOC,- ; SHOW DEALLOC FORK ACTIVE 
9130 a} FB 978 UCBS$B_TP_STAT(R5) 
51 0114 ¢5 0 dare 7 MOVL UCBS$L“TT CLASS(R5) RI : GET CLASS VECTOR ADDRESS 
1¢ 61 «16 980 JSB @CLASS_FORK(R1) : SCHEDULE FORK TO FIPC FOR MAP 
1 : REGISTER DEALLOCATI 
05 RSB ; RETURN TO CALLER, FORK WILL RESUME 
, : AT DMA_DEALLOC 
7 3 5 DMA_DEALLOC: 
50 2% as 00 7 6 MOVL  UCBSL_CRB(RS),RO : GET CRB ADDRESS 
O1ec C5 WOVL UCBSL-TP_MAP(RS) ,- 
4 A0 F 8 CRBSLINTD+VECSW_MAPREG(RO) RESTORE MAP FIELD IN CRB 
06 13 051 HEQL $ ; SKIP IF NONE 
00000000'GF 16 ; JSB G* 1OCSRELMAPREG + RELEASE MAP REGISTERS 
19 2 SS: SETIPL UCBSB_DIPL(RS) ; INTERLOCK TO DEVICE IPL 
19 AA 051D BICw  #TTY$A PC MAPAVL - + SHOW MAP ALLOCATED 
0122 1F 89h UCBSW TT PRICTL(AS) 
Ba 0542 998 BICB 0s #TTYSM_TP DLLOC.- ; SHOW DEALLOC FORK DONE 
0130 C5 ) 96 UCBSB_TP_STAT(R5) 
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von PORT DMA ROUTINES . g- SEP. 1382 8e: 3; 3 TTDRVR.S saesecp YCDRIVER.MAR; 1 — $9, 
7 
DMA_POST: 
0} BA BICB sTTYSA TP_ABORT ; RESET ABORT REQUEST 
o1 ¢ 9 1 UCBSB ATP TP STAT(RS) 
000 SF AA 1 BICwW : RESET DMA MODE 
0108 ¢5 UCBse 1 MMOD CRS) 
4 ; CALL GETNEXT TO CONTINUE PROCESSING 
: i 8A 19 & ‘ BICB #UCBSH TIM: UCBSM_ INT,- ;CLEAR TIMEOUT AND INT EXPECTED 
o18¢ p 1 10 JSB ayes TT_GETNXT(RS) ; GET NEXT BURST 
FEOF 8 BRW RTIO + AND PROCEED 
—E 1011 YCSFORK: : 
53— 101 SAVIPL + SAVE CURRENT IPL ON THE STACK 
00000559" EF DF 34 101 PUSHAL 208 + BUILD RETURN ADDRESS ON STACK 
1 €1 0547 1014 BBC #TTYSV_TP_ALLOC,- + SKIP IF NOT ALLOCATE FORK 
03 0130 C5 549 1015 UCBSB P sth AT CRS), 108 
FEA1 31 238 } 1 108 BRW DMA_ACLOC ; RESUME AT ALLOCATE CODE THREAD 
02 E1 32 1 18 "BBC #TTYSV_TP_DLLOC,- ; CHECK FOR DEALLOCATE 
03 0130 ¢ 552 101 UCBSB_TP STAT (R5), 208 
FFAE 31 22 } 9 208 BRW baa _DEALCOC 
359 1p : " ENBINT : RESTORE SAVED FORK IPL FROM STACK 
05 ee 15 4 RSB 
55D 1025 
55D 1026 


FUNCTIONAL DESCRIPTION: 
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VOen OOD PORT ROUTIN ST TOP,RESUME KON, XOFF i att ¥ ve $3; 3 TTDRVR.SRCJYCDORIVER.MAR; 1 oo" (1) 
= -SBTTL PORT ROUTINES STOP,RESUME,XON,XOFF 
A yon oy - SENG XOF F 
YCSXON - SEND N 
YCSSTOP - STOP OUTPUT 
YCSABORT - ABORT CURRENT OUTPUT 
YCSRESUME = RESUME STOPPED OUTPUT 


THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 


FUPVSVSUSVSVSISISIAISIIUIUTINIIUIOI CO 


» 
TINES 
dD 1 
et 
D 1031; 
9 § 
D 1033; 
D 10354 ; 
BiB 
St 
3 p i ; CONTROL OUTPUT ON THE PORT 
3 p 4 : INPUTS: 
5 p “§ ; RS = UCB ADDRESS 
p 45 > OUTPUTS: 
55D 1 23 : RS = UCB ADDRESS 
325 108 
39 30 + SCHEDULE XOFF OR XON TO BE SEND 
350 3 : INPUTS: 
350 34 : R3 = CONTAINS THE CHARACTER TO SEND AS FLOW CONTROL. 
55D 1 36 YCSXOFF: 
550 1057 YCSXON: 
03 550 1 38 PUSHR #*M<RO,R1> 
a5 105 GETIND 
06 AO 51 8000 er Ag : 1060 BI sus #OMFLCTSM_PREMPT,R1 G(R RO) ; PREMPT ANY CURRENT OUTPUT 
60 54 A5 4040 BF Ad 0579 1061 BISW3 #*X4040,UCBSW_UNIT(RS) , (RO) t SELECT TRANSMIT SILO 
06 Ad 33 90 3 0 1 62 MOVB R3-6(ROS : OUTPUT CHARACTER 
0 4 106 POPR #M<RO,R1> 
HB ies | 
, 66 : STOP PORT OUTPUT 
2 7 1 és YCSSTOP: 
0 BB 587 (1 6 PUSHR #*M<RO,R 
589 1 Ich. MUCBSR IN ycasn TIM,- ; RESET TIMER AND OUTPUT ACTIVE 
64 A 1 , ycasu. ST 5 
; f GETIND : 
06 0122 cS 05~«C«#€#? 4 vs BBC #TTYSV_PC_XOFAVL ,UCBSW_TT -PRTCTL(RS) 108; Ayzoxon XOFF AVAILABLE ON 
04 0122 C5 06 £0 O5a2 1 id: BBS #TTYSV_PC_XOFENA UcBsy_ 1T sparcreins) obs; AUTOXON XOFF ENABLED 
AA As , 108: BICw2  #OMFLCTSM~XMIT,6¢ RESET TRANSMIT ENABLE 
03 AC 1 8 " — POPR) ss #*M<RO,R1> 
es ieee 
iH : : ABORT ANY CURRENT PORT OUTPUT ACTIVITY 
AF 1084 YCSABORT: 


06 0122 (C5 =405~=«C«#E 


BBC #TTYSV_PC_XOFAVL ,UCBSW_TT_PRTCTL(R5),10$; AUTOXON XOFF AVAILABLE ON 
; E TRANSMITION 
04 0122 (5 06 €0 


;_NO THEN RESUM 
BBS #TTYSV_PC_XOFENA,UCBSW_TT_PRICTL(R5),20$; AUTOXON XOFF EN 
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Yoon OU PORT ROUTINES STOP RESUME, XON, XOFF Set) 7 87399532 TTORVR. SREIYCORIVER. MAR: 1 Mie $4, v04 
A PUSHR #*M<RO,R1> 
8 BBCC #TTYSV_TANK BURST ,UCBSW_TT_HOLD(R5) ,- ; RESET BURST ACTIVE 
5 10$: : 
B GETIND 1 
BISW2 #<DMFLCTSM_XMIT>,6(RO) : SET XMIT 
9 BBC #UCBSV_INT-UCB$W.STS(R5),15$ : SKIP IF NOT BUSY. 
g BISW2 #<DMFLOTSM_FLUSHS,6(RO) : FLUSH OUTPUT 
9 ens BISB #TTYSM_TP_ABORT,UCBSB_TP_STAT(RS) + REQUEST DMA ABORT 
03 BA 3 " POPR «ss #AM<RO, RID 
5 9 RSB 
2 
99 : RESUME PREVIOUSLY STOPPED PORT OUTPUT 
8 YCSRESUME : 
OF 8B PUSHR #*M<RO,R1,R2,R3> 
GETIND 1 
0 
0 
0 


|ABLED 
YES THEN DON'T ENABLE THE 
ANSMIT 


06 ag 01 AB 10$:  BISW2 #DMFLCTSM_XMIT,6(RO) : ENABLE TR 
38 64 AS 01 «~€0 20$: BBS #UCBSV_INT,UCB$W_STS(RS) ,40$ : SKIP IF OUTPUT ON 
O¢ E0 BBS #TITYSV-TA : SPECIAL IF DMA ACTIVE 


NK_DMA,= 
35 0108 UCBSW_TT_HOCD(R5) ,50$ 


2c 0108 CS) —(OB”sé#é€é=» BBC #TTYSO_TANK_BURST ,UCBSW_TT_HOLD(R5),40$ ; NO BURST IN PROGRESS 


So 
o wo Oo 
— — 
Wooeo oOo 
OOo @ 
o>>,r>y o 
MOuIO uw 
o-oo ooo 
—-o-- omw 
orm», m 
coco—o Heat 4 
OOOO CSGOOOO COCO OOSOOOOOOOOOOOOOOOOOOO 


LDP DDPEDPPEDPDR GS PPP DADA DAP DDD aaa PIII UII JIT 
POA SF FW | “QOOCOCO TMM RAMMOCVTVTVTVCVTVT VOT VOCINONMO 


: (RESET ANYWAY. WILL BE 
: SET IF NEEDED BY BURST_OUT 
60 54 A5 4040 BF Ad BISW3 #*X4040,UCBSW_UNIT(R5), (RO) : SELECT TRANSMIT SILO 
51 06A0 9A MOVZBL 6(RO),R1 : GET SILO DEPTH 
TIMSET R1,R1,LOCKOUTPUT : COMPUTE TIMEOUT AND 
: SET INTERUPT EXPECTED 


MOVONANOONOD OOOODE 99S NW" NOWDWDVNVOOCWBIVIVIVIVIDPOOwW POO" -15 
a a dd dd TID 


a ad a ad = = 4 2 = 3 2 — 2 2 2 2 — 3 6 — 


WAI ROPOROPONONNUN NY 


NR OODNA MAE WIN OS ODNAUE WIN 0 ODNA NEAR OO ODNAUL WN OUOONOu 


40$: 
OF BA POPR #*M<RO,R1.R2,R3> 
5 RSB 
50$: 
60 54 A5 4058 8F a9 BISW3 #*X4058,UCBSW_UNIT(RS) , (RO) : GET CURRENT BYTE COUNT 
51 06 AO 3¢ MOVZWL 6 (RO) ri 
51 C000 BF AA BICw  #*x0C600,R1 ; MASK OFF ADDRESS BITS 
TIMSET R1,R1,LOCKOUTPUT : COMPUTE T D 
: SET INTERUPT EXPTECTEDD 
CA 11 0 BRB 40$ 


Oo 


voe~000" 
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mc 
zz 
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e 
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- ~SBTTL OUTPUT INTERRUPT SERVICE 
YCSINTOUT = DMF OUTPUT INTERRUPT SERVICE 
FUNCTIONAL DESCRIPTION: 


=o 
ot 
mo 


27 
Cc 
Ww 


ANIA 
WW —OOONOUsS U-n 


pes ROUTINE IS ENTERED WHEN THE DMF Aig A Lin ENABLED 
D AN EMPTY UART. THE CORRESPONDING ae Ry OUND 
ANY OUTSTANDING PORT OUTPUT IS DONE. WHEN ALL BUTSTANDIN NG PORT 
OUTPUT IS COMPLETED, THE CLASS DRIVER IS CALLED TO RETURN THE NEXT 
CHARACTER OR STRING TO BE OUTPUT. IF NO MORE OUTPUT IS FOUND, THEN 
E LINE IS DISBALED. 
INPUTS: 


PEA AAOAOOAOASOASAOOO I 


DEC DOWUWWIWIWOO MOOOCDOUNMNTNANAWHNHHAHHHNH HANAN AHN AANA NM 


SP(00) = ADDRESS OF THE IDB 
IMPLICIT INPUTS: 

RO,R1,R2,R3,R4,R5 SAVED ON THE STACK. 
OUTPUTS: 

THE INTERRUPT IS DISMISSED. 


OT T OUTPUT ahnaleee 


OOooOCOCOCGOOOOOOOOOOSOOOSOOOOOOOOOOOOOOOOOO 


DDD DED DDD DDD DDD DDD PPP AAPA AAA PAA AAA AOA Oro 


> EXI 
SE 04 CO ADD #4,SP + REMOVE IDB A 
50 8E 7D MOVG (SP)+,RO : RESTORE REGISTERS 
32 8—E 7D MOVQ (SP)+.R2 ; 
te fe MOVQ (SP)+.R4 : 
02 REI : DISMISS INTERRUPT 
YCSINTOUT:: : DMF OUTPUT INTERRUPT SERVICE 
YC_OUT_LOOP: 
54 00 BE 00 MOVL a SP),R4 : GET THE IDB ADDRESS 
50 64 00 MOVL  (R4),RO + GET THE CSR ADDRESS 


GET THE LINE INFO FROM THE CSR 


O09 690969096909 69 69 SINISE SSSI NPA AAA AAO o> 


52 60 8 MOV (RO) ,R2 : 1 THE CSR_ VALUE 
1 BGEQ YC OUT_EXIT ; NO MORE LINES 
51 52 Fe Be ASHL #-8,R27R1 : GET THE LINE NUMBER 
51 FFFFFFF8 8F CA BICL #*C<7>,R1 3 
55 18 A441 0 MOVL IDBSL_UCBLST(R4)CR1],R5 ; GET THE UCB ADDRESS 
el 1 BEQL YC_OUT_LOOP : IF EQL THEN DISMISS 


CHECK TO MAKE SURE NO DATA IS PENDING BEFORE ASKING FOR MORE 
BISWS #°X4040,UCBSW_UNIT(R5),(RO); GET THE SILO INDIRECT REGISTER 
TSTB ${R0) ; ANY DATA STILL_IN THE SILO 
BNEQ 0$ ; YES THEN LET IT COMPLETE 


CHECK FOR BURST OR DMA ACTIVE ON LINE 


60 54 A5 4040 8F 
06 4 


rere tte 


ea ee cd ed = ot = = = 2 = = = SS 3 2 — — — 3 — 3 — 2s 2 3 — 3 2 2 2 2 1 3 1 2 


WOCOC9 G99 C9 G9 GD OO GD G9 SIS NIINSSIDDPDPDPDPDAPDAD IT IIT  BB PPP EE 
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Voorn OU OUTPUT INTERRUPT SERVICE” Breer 18Be Be T5582 FATEUNS Bacco VOe Oe ans7 Page $4, v04 
AZ 11 
08 91 A 11 CMPB 0s #TTYSM_TANK_BURST@ 58. ; ONLY BURST ACTIVE? 
0109 é Ad 11 UCB$W_TT_HOLD+1(R5 
¢ 13 AC 1 4 BEQL YC_SICO ~ ; YES, CONTINUE SILO OUTPUT 
10 93 O6AE 11 BITB #TTYSM_TANK_DMA@=8,- —;_DMA ACTIVE? 
0109 cS B 1182 ucesy TT_HOCD+1(R gs 
A 12 068 1 8 BNEQ YC OME. INTERRUPT™ ; YES, PROCESS IT. 
6B 0 : NO PENDING DATA = LOOK FOR NEXT CHARACTER 
64 A5 03 BA és ; los: BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
689 4 CALL CLASS DRIVER FOR MORE OUTPUT 
010C DS 16 388 1 6 . JSB acest TT GETNXT(RS) : GET THE NEXT CHARACTER 
15 19 6BD 1 BLSS TART_BUR : T SPECIFIED 
BB car : BEQL YeroUt. LOOP : BONE 
6C1 1210 : OUTPUT A CHARACTER TO THE DMF 
gH 181) os 
60 54 AS 4040 8F Ad 06C1 1 i " —- BISW3 —-#4X4040,UCBSW_UNIT(RS), (RO) : SELECT OUTPUT SILO INDIRECT REGIST 
06 A0 53 90 06¢8 1214 MOVE —R3,6(ROS : OUTPUT’ CHARACTER 
AE 11 6cC 13 BRB YCOUT_LOOP 
F966 CF D6 Oete 1 i$ 40$: INCL  YC$L_SIL_ERROR 
AB 11 O06D2 1218 BRB YC_O0T_LOOP 


B 5 
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vrai OUTPUT INTERRUPT SERVICE ey 7 §F:99:32 TTDRVR.SRCJYCDRIVER.MAR:1 07) 
D4 1 
64 1 ° YC_START_BURST: 
FC7F CF 8616 «(0604 1 2 JSB BURST_OUTPUT : START OUTPUT SILO OR DMA 
A211 0608 1 BRB YC_OUT_LOOP 
SpA 1558 
DA $ : CONTINUE SILO OUTPUT 
6DA 1 8 YC_SILO: 
60 54 A5 4040 8F AD O6DA 1 BISW3 #*X4040,UCBSW_UNIT(RS) , (RO) ; SELECT OUTPUT SILO INDIRECT REGIST 
1 06 A0 9A 06E1 1230 MOVZBL 6(RO) RA : GET SILO DEPTH 
1 2 Ss US E> : SUBL3. R1,#32,R1 ; CONVERT TO NUMBER SLOTS AVAILABLE 
52 0120 ¢5 = 3¢ O6E9 1 MOVZWL UCBSW_TT_OUTLEN(RS) Rg ; GET CURRENT LENGTH 
53 6 o1ic ¢5—sé OEE 1234 MOVL  UCBSL-TTTOUTADR(RS5).R3 : GET CURRENT ADDRESS 
51 32 BI oF 5 CHP Re, : BURST LARGER THAN SILO? 
52. 51. «9A ers § ae MOVZBL R1,R2 + MAXIMUM 
O11¢c cS 52~—=—é«CO O6FB 1 § "ADDL. «—s«R2, UCBSL_TT_OUTADR(RS) ; UPDATE POINTER 
0120 ¢5) 5 Ag Q 1240 SUBW R2,UCBSW-TT-OUTLEN(R5) ; AND COUNT 
0 12 0705 1241 BNEQ 608 t NOT DONE 
0800 8F AA 0707 1 43 BICW  #TTYSM_TANK_BURST,- + RESET BURST ACTIVE 
0108 ¢5 70B 124 UCB$W_TT_HOLD(R5) 
52 pS O70E 1244 60$:  TSTL  R2 ; ANY ROOM AT ALL 
1A 13 4 49 BEQL 80S : NO THEN EXIT 
08 52 E9 O712 1 t3 BLBC = R2, 708 : EVEN TRANSFER 
06 A0 8B 90 715 1248 MOVB = (R$) +,6(RO) : OUTPUT ODD BYTE 
52. 07 0719 «1249 DECL R2 : UPDATE COUNT 
OF 13 718 20 ina BEQL 80$ : DONE 
52 52 FF SF 78 orp 38 a ASHL  #-1,R2,R2 : CONVERT TO WORD COUNT 
06 AO «6—83—siBOD 83 g 1254 ° + MOVW  (R3)+,6(RO) 
07 6 1255 DELAY ; TO RELEASE THE UNIBUS 
F652 «FS g 9 36 SOBGTR R2,75$ : LOOP TILL DONE 
FF4D (31 $5 C 1258 80$:  BRW YC_OUT_LOOP 
rst 1825 
72F 1261 YC_DMA_INTERRUPT: 
FF49 CF OF «OO72F «1 6¢ PUSHAL YC_OUT_LOOP ; BUILD RETURN ADDRESS ON STACK 
04 52 0c £1 07 3 1 6 BBC #OMFCSRSV_DMAERR,R2,30$ : CHECK FOR A DMA ERROR 
F905 CF 6 , 64 Bai INCL YC$L_DMAXMT_ERROR : ERROR OCCURED INCREMENT COUNTS 
06 93 0738 1 66 " «:BITB. = #TTYSM_TP_ALLOC!TTYSM_TP_DLLOC,- ;CHECK FOR FORKS ACTIVE 
0130 5 230 6 aia B$B_TP_STAT(RS) 7 AND IGNORE IF SO 
0130 C5 8 74g 63 BBS gTTYSV_TP_ABORT ,UCBSB_TP_STAT(RS) . =; ABORT ACTIVE DMA 
60 54 se 4058 er 49 248 rt Biss #14058, UCBSY_UNIT(RS) , (RO); GET CURRENT BYTE COUNT 
51 C008 F OAA 133 1 BICW os 600 RI ; MASK OFF ADDRESS BITS 
FBDE ce bG OFSA. 1998 Pict YCSL_ERROR peat TeceBeores, 
6311 ay. 1276 BRB 10$ ~ : NO THEN CONTINUE 
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; OTHERWISE, CONTINUE THE DMA 
IF THIS INTERRUPT WAS THE RESULT 


OF AN ABORT, THIS WILL BE HANDLED 
BY DMA_CONTINUE 
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~SBTTL SET SPEED, PARITY PARAMETERS 


Pp 
40 
<5 


p++ 
: YCSSET_LINE = RESET SPEED, PARITY 
: FUNCTIONAL DESCRIPTION: 


; RS = UCB ADDRESS 
; OUTPUTS: 
: R4 USED 


YCSSET_LINE: 
PUSHL 


MOVL.  a@CRBSC_INTD+VECSL_IDB(R4S .R4 
B1SW3 #°X4048,UCB$W_UNIT(RS), (R4) 


te #DMFLCTSM~AUTOX,6(R4) 
28: BISW  #DMFLCTSM_AUTOX,6(R4) 


CLRL -(SP) 
SET UP LINE SPEED AND PARITY 


MOVB § UCB$W_TT_SPEED(RS),- 
UCBSW~TT~SPEED+1 (R5) 


wm 
wr 
wm 
= 
wo 
wo 
Lal 
= 
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. 
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INSV. R3,#DMFLPRSV_TSPEED,#4, (SP) 
SUBB3 #1, UCBSW_TT_SPEED+1(P4) 23 
INSV R3,ADMFLPRSY_RSPEED, #4, (SP) 
NONSTANDARD PARITY/STOP LAYOUT 


INSV R gHDRFLPR v_§12 

INSV RS _ADNELORSY PARITY, #2, (SP) 
XORB $#DMFLPRSM_ODD, (SP 
v_SfOP. a1, (SP) 


BICW #*x0007, (SP) ; CLE 
BISW Yess Wad] (RS). (SPD ; SET 
: P)+,2(R4) : INS 


PADI 9 OD NA UNE WIN OOO NAME WIN OS OD NA NE WWIN AO OOD NAUE WN OOODNOAULSWN—O0OC 1 =--«- 
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R3 

UCBSL_CRB(R5S) ,R4 ; ADDRES 
GET THE CSR ADDRESS VIA CRB 

THE RIGHT INDIRECT REGISTER 

3 AUTOXON XOFF AVAILABLE ON T 


1S 
; AUTOXON XOFF ENABLED 
EN CLEAR THE AUTOXOFF ENABLE 


INUE 
HEN SET AUTOXOFF 
; RESET A TEMPORARY LOCATION 


o(R ;_GE 

B #TTYSV_PC_XOFAVL ,UCBSW_TT_PRTCTL(RS) 4$ 
BBS #TTYSV_PC_XOFENA,UCBSW_TT_PRTCTL(RS) ,2$ 
. ; NO TH 


tay ZOOd_ TT _SPEED TRS? ; RECEIVE SPEED SPECIFIED? 
; NO, SO USE TRANSMITTER SPEED 
ADJUST TRANSMIT SPEED 


ADJUST RECEIVER SPEED 
SET RECEIVE SPEED 


EXTV — MUCBSV TT LEN. #2 UCBSB.TT _PARITY(RS) RS 
E a2, (SP) 
BSV_TT PARTY, #2,UCB$B_TT_PARITY(RS) ,R3 


EXTV mycasy Trstoe #1,UCB$B_TT_PARITY(RS) .R3 
R3,#DMFLPR 


S LINE PARAMETER 
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: End of driver 
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Symbol table . $28 att $e 393382 YT TORVR. SREJYCORIVER. MAR: 1 pale 5 5 v04 
$$$ = a 02 DMFLCTSM_PREMPT 2 0 
SSOP s DMFLCTSM_RCV z 4 
AT$_UBA = DMELCTSA_XALT = 1 
BIT... = DMFLCTSS_AUTOX = 1 
BURST_OUTPUT a 03 DMFLCTS$S-BREAK = 1 
CLASS_DDT = 10 DMFLCTSS_DS ENABLE = 1 
CLASS_DS_ TRAN = 0c DMFLCTSS_FLOSH = 1 
CLASS_FORK = 1 DMFLCTSS_MAINT = ¢ 
CLASS_GETNXT = DMELCTSS“PRERPT = 
CLASS_POWERFAI z DMFLCTS$S-RCV z 1 
CLASS_PUTNXT = 4 DMFLCTSS_XMIT = 1 
CLASS~READERROR = 14 DHELCTSV"AUTOX = 
CLASS_SETUP_UCB = a DMFLCTSV_BREAK = 
CRB$B_TT_ TYP = DMFLCTS$V_DS_ ENABLE = 
CRESL_INTD = DMFLCTSV_FLOSH s $ 4 
CRBSL~INTD2 = 4g DMFLCTSV-MAINT = 6 
DC$_ TERM = 4 DMFLCTSV_PREMPT = 6 OF 
DOBSL_ = 9 FLCTS$V-RCV = 00 
DEVSM_AVL = 9 FLCTSV-XMIT = 99 9 6 
DEVSM_CCL = 0000 DMFLPRSM~LINE s 
DEVSM_IDV = 94000 9 DMFLPRSM_ODD = 000 9040 
EVSM_NNM = 00000 DMFLPRSM_PARITY = 000 2 
EVSM_ODV = 08000000 DMFLPRSM_RSPEED = 9 F 
DEVSM_REC = 9 1 DMFLPRSM_SIZE = 91 
DEVSM_TRM = 4 DMFLPRSM_STOP = 0000008 
DMA_ACLOC 00003F1 R 9 DMFLPRSM_TSPEED 2 Ape 
DMA_CONTI 900042¢ R DMFLPRSS_LINE 2 000 
DMA_DEALLOC 0000507 R DMFLPRSS— s 6 90001 
DMA_DONE 000 fs R DMFLPRSS_PARITY = 990 1 
DMA_POST 9000 32 R DMFLPRSS_RSPEED = 99 04 
DMA START 9000 CBR 0 DMFLPRSS_SIZE = 02 
DMF CSRSM_CLEAR = 9000 00 DMFLPRSS-STOP = 00000001 
DMF CSRSM_DMAERR = 90010 DMFLPRSS_TSPEED = 9 04 
DMF CSRSM_IADDR = ( 9 c DMFLPRSV-LIN = 000 
DMF CSRSM_LINE = ( 0 DMFLPRS$V—ODD z 9006 
DMF CSRSM_RCVINT = ( 9 DMFLPRSV-PARITY = 00 9 
DMF CSRSM_SNDINT = 09 DMFLPRSV_RSPEED = 00 
DMF CSRSM_SNDRDY = 00008000 DMFLPRSV— = 0 
DMF CSRSS~ CLEAR = 0 DMFLPRSV~STO = 00 
DMF CSR$S_DMAERR = DMFLPRSV-TSPEED = 09 C 
DMF CSR$S_IADOR = DMF RCVSM_BUF = 000000F F 
DMF CSRS$S_LINE z DMFRCVSM_DS_CHG z 
DMF CSRSS_RCVINT = DMFRCVSM_FRAMER = 
DMF CSR$S-SNDINT = 00 DRERCVSA-L INE : 
DMF CSRSS_ SNDRDY = DMF RCVS$M_OVERRUN s 
DMF CSRSV~CLEAR = 00 DMF RCVSM_PARERR = 

F CSRSV~DMAERR = O DMF RCVSM_VALID : 
DMF CSR$V~IADDR = 006 DRERCVSS “BUF = 

F CSRSV“LINE = O DMFRCVSS_DS_CHG z 
DMF CSRSV_RCVINT = 0 DAE RCV$S_F RARER = 

F CSR$V~SNDINT = DMFRCV$S_LINE = 
DMF CSRSV~SNDRDY = DMF RCV$S_OVERRUN = 
DMFLCTSM_AUT = DMFRCV$S_PARERR = 
DMFLCTSM_BREAK = DMFRC S“VALID z 

FLCTSM_DS_ENABLE s DMFRCV$V~BU = 
DMFLCTSM_FLO = DMFRCV$V_DS_CHG = 

FLCTSM_MAINT = DMFRCVSV~FRAMER z 


YCORIVER 


- Port Driver for DMF 
Symbol table 
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DMFRCVSV_LINE = SILO_OUTPUT R 03 
DMF RCVSV_OVERRUN = S12. s 
DMFRCVSV_PARERR = 3 ws, = 
DMFRCVSV_ VALID S TSA_DS_D = 
DPTSC_LENGTH = TTSMA_DS_RTS = 1 
DPTSC_VERSION = TT$_ONKROWN = 0 
PTSIRITAB 02 TTVEGB_DGF SPEED eeeneeee =X 
T D . TTYSGB_PARITY eeeeeere § 
DPTSREINITAB og TTYSGB_RSPEED eeneeeee = 6X 
TSTAB TTY$GB_SILOTIME eeteeeee x 
DPTSW_VECTOR = TTYSGL_DEF CHAR eeneseee =X 
DAF = TTVSGL DEF CHARZ eececere 
DTS_ DMZ = TTYSGL_DPT eeneeeee § 6X 
DYNSC_CRB = TTYSGL_OWNUIC eererere =X 
DYNSC_DDB s TTYS$GW_DEF BUF eeeeeere § 
DYNSC_OPT s TTYSGW_OMASIZE eenenere 
DYNSC_ORB = TTYSGW_PROT etereree 
DYNSC_UCB = TTYSM_PC_DMAAVL = 00000004 
EXESCC _Agst eeeeeeee =X TTYSM_PC_MAPAVL z 18 
EXESGL_TENUSEC eererere § x TTYSM_PC_ XOF AVL = 
EXESGL _UBDE aenerere =X TTYSM_TARK_BURST = 00 ; 
FUNCTAB_LEN s TTYSM_TANK_DMA = 1 
108$8_COMBO_CSR_OFFSET = TTYSM_TP_ABORT = 00C 1 
1DB$8_ COMBO" VECTOR_OFFSET = TTYSM_TP_ALLOC = 000 2 
108$8_ VECTOR = TTYSM_TP_OLLOC s 000004 
1DBSL_UCBLST = TTYSV_PC_DMAENA = 3 0001 
10$M_AUTXOF _DIS = TTYSV_PC_MAPAVL = 00000004 
1OSM_AUTXOF ENA = TTYSV_PC_NOTIME = 000000 
1OSM_LINE_OFF = TTY$V_PC_PRMMAP = 000000 
1OSM_LINE_ON = TTYSV_PC_XOF AVL z 0900 
10$M_LOOP bad TTYSV_PC XOFENA = 0000 6 
10$M_LOOP_EXT = TTY$V_TARK_BURST = 900000 
1O0$M~ UNL OOP = TTYS$V_TANK- DAA = 000000 
1OCSALOUBAMAPN eeeeeeee = X 0 TTY$V_TP_ABORT = 000000 
IOCSMNTVER eeneners § 8 TTYSV_TP_ALLOC = 00000001 
IOCSRELMAPREG eererere =X TTYSV_TP_DLLOC = 000000 
IOCSRE TURN eeeereee x 9 UBASL_MA = 0000 08 
MAG SPTBASE eeereree x UCBS$B_DEVCLASS = 0000 004 
MODEMST_DATASET = UCBSB_DEVTYPE = 0000004 
MODEMSC = UCBSB_DIPL = 00000¢ 5E 
ors$B_FCAGS = UCBSB_FIPL = 44s 
ORBSL_OWNER = UCBSB_TP_STAT = 000001 
ORBSM_PROT_16 = UCBSB_TT_DEPARI = QOQQQ0DE 
ORBSW_ PROT = UCBSB_TT_DETYPE = Q00000F 
PORT _ABORT S UCBSB_TT_DS_RCV = 90000 
PORT_DS_SET = UCBSB_T1_DS_TXxX = 00000125 
PORT" FORKRET = UCB$B_TT_MAINT = 0000012A 
PORT_LENGTH = UCBSB_TT_PARITY = 000000 8 
PORT_MAINT = UCBSC_TT_LENGTH = 00000 
PORT _RESUME = UCBSt CRE = 00000024 
PORT_SET_LINE 5 UCBSL_DDB = 000000 
PORT-STARTIO s UCBSL_DOT = 0000 00 
PORT_STOP = UCBSL_DEVCHAR = 000000 
PORT VECTOR 03 UE eet abs VE NARe = 000000 t 
PORT_XOFF = UCBSL_DEVDEPEN = 00000C 
PORT~XON : 10 UCBSL—DEVDEPND = 90000048 
PRS_TPL aeeereee =X 03 UCBSL_DUETIA = 0000006C 


YCDORIVER 
Symbol table » 
UCB = Port D0 
UEBBL 11 -DECHA = 000001 16§ 
uC ~!T_DECHAR ae '+'4-4-4- ¢ $73 
UCBSL_TT-GETNX = 00000 AX/VM 
UEBBL=T“OUTADR = 900000 THOMVA. SRETVCORIVER 
need = B90 RCT aes MT 
UEBBL 11 “RT ROU = 9000011 ck ae 
$U“TT"WBL = 00000 RRUPT D 
UCBSL TT WF INK = 000 11 R 
UCBSA INT LINK e 29000084 4 R 
UCBSM~ONLI = OC 00000 R 
roe rT eee me 4444+ FR 
UCBSV_INT = 00 AAA 4 R 
UCBSV_ = +4444. Da 4 
Hitt = 99000001 te 
UCBBYIT-StOP = $0000008 
ucesy pe FSIZ = QO0000 
ert tre = 000000 
eB ey 11 DESIZE = YUUUUY 
yt tr Se = vi HOO 06 
yt tre g = 4 DOOOF 1 
UCpeN TT .OUTLEN = 000000 
eo TN TT SPEED. = 000001 
Uae tT eee = 000001 
rt UNITBIT = 000001 
vE -UNTT = 000 OC OF 
CS$L_ADP = YUUUU 
vEcat-IDe : Sean 
VECSTOUNETING = 00000014 
VE _UNITINIT = 00 000 : 
C$S"MAPREG = 00000008 
VECSV"RAPREG = 90000018 
CSU" MAPREG = 000000 
VCSABORT = 90000000 
4% 3 me - 00 ' oie 
vcsppr ii 10¢ sar f 
YC$FORK 00090000 RG 
VCSINITLINE poo0e 7g R 
CSINTINP ‘44'44 535— R 
Vea TOUT 0000 RG 
vc _DMAXMT_ERR 0000 26 RG 
4 eee “ DO00E TC RG 
1CSAKINT™ 990001 6 R 
A SS 
Vessel LINE RPOnOORS k 
YCSSTARTIO 50000080 R 
4 4 ANDO DB ER 
tt enno HSS 
0006 , - 
000 p38 R 
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! Psect synopsis ! 


bu wmonwenmroers rene s > 


PSECT name Allocation PSECT No. Attributes 

- ABS . 000000 ¢ -) 00 ¢ 9. NOPIC USR CON ABS LCL a pe NOEXE NO NOWRT NOVEC BYTE 
SABSS 000000 <¢ on -) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOCVEC BYTE 
$$$105_PROLOGUE ; eB ¢ 33 ) § ( §°} NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC eyre 
$$$115"DRIVER E7 (¢ 2025.) ( -) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 


a A Ramm SE epee 


; Performance indicators ! 


eSeeeecoeeee saeenmennmesenemenee 


Phase Page faults CPU Time Elapsed Time 
Initialization 77 :00:00. :00:01.07 
pounene processing 1 :00:00. :00: 218 
Symbol table sort :00:03.21 :00:03. 
Sakek table output sof 00: 18 0; 0; ‘§ 
able outpu :00:00. :00:00. 
Psect synopsis output :00: $0; 8; :00.0 
Cross-reference output :00: 9-98 0:00: 9 
Assembler run totals 133 :00:31.1 0:00:47. 


jhe e.ye"king set Limit was 3409 page 
bytes (420 pages) o r wy memory were used ee buffer the intermediate code. 
The re were 160 pages of symbol table brace vcings2s ob hold 2948 non-local and local symbols. 
13 O source Lines were read in Pass 1, producin object records in Pass 2. 
72 pages of virtual memory were used to define & 7 macros. 


Macro i name Macros defined 
~$52280U :CSYS. 08 JLIB.MLB;1 7 
tae ite rétie3 STARLET. ALB; 2 
TOTALS (all libraries) 43 


3430 GETS were required to define 43 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: YCDRIVER/OBJ=0BJ$: YCDRIVER MSRC$: YCDRIVER/UPDATE=(ENHS: YCDRIVER) +EXECMLS/LIB 
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